diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-01-14 19:07:04 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-01-14 19:07:04 +0000 |
| commit | 253e6a352d1f6af5fb5357468ba0581ea44862a4 (patch) | |
| tree | b728ac528d9e05814c8edba6e9558d3afded285e /LedgerSMB/DBObject.pm | |
| parent | b79c3f25ea8e931a060ce13764cdeb5b15b33196 (diff) | |
Correcting warning when parsing array
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2046 4979c152-3d1c-0410-bac9-87ea11338e46
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 0691489a..7a2415c8 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -244,7 +244,7 @@ sub _parse_array { my @return_array; while ($value ne '{}') { - my $next; + my $next = ""; my $separator = ""; if ($value =~ /^\{"/){ while ($next eq "" or ($next =~ /\\".$/)){ |