diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-03-07 18:19:38 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-03-07 18:19:38 +0000 |
| commit | eb7630f4d7a0143522273ff9a8024e30d1ee670a (patch) | |
| tree | e60c282ef022cb0f7318d65d79a4f557ba75b103 /LedgerSMB | |
| parent | 291029f4f780c7a4c05469201734c0fd4d7e902a (diff) | |
Correcting error on dbobject::parse_array() using nested arrays
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2101 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -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)/; |