diff options
Diffstat (limited to 'LedgerSMB/DBObject.pm')
| -rw-r--r-- | LedgerSMB/DBObject.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 6e7abfd4..5bd6741d 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -272,7 +272,7 @@ sub _parse_array { $close_braces =~ s/{/}/g; $value =~ /^{($open_braces[^}]*$close_braces)/; my $parse_next = $1; - $value =~ s/^{$parse_next/{/; + $value =~ s/^{$parse_next,?/{/; @$next = $self->_parse_array($parse_next); } else { |