diff options
| -rw-r--r-- | LedgerSMB/DBObject.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 7a2415c8..40d621c5 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -258,6 +258,7 @@ sub _parse_array { } elsif ($value =~ /^{({+)/){ my $open_braces = $1; + $next = []; my $close_braces = $open_braces; $close_braces =~ s/{/}/g; $value =~ /^{($open_braces[^}]*$close_braces)/; |