SF.net SVN: ledger-smb: [2046] trunk/LedgerSMB/DBObject.pm

[..hidden..]

Revision: 2046
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2046&view=rev
Author:   einhverfr
Date:     2008-01-14 11:07:04 -0800 (Mon, 14 Jan 2008)

Log Message:
-----------
Correcting warning when parsing array

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject.pm

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2008-01-14 17:46:47 UTC (rev 2045)
+++ trunk/LedgerSMB/DBObject.pm	2008-01-14 19:07:04 UTC (rev 2046)
@@ -244,7 +244,7 @@
     my @return_array;
 
     while ($value ne '{}') {
-        my $next;
+        my $next = "";
         my $separator = "";
         if ($value =~ /^\{"/){
             while ($next eq "" or ($next =~ /\\".$/)){


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.