SF.net SVN: ledger-smb:[3115] branches/1.2/LedgerSMB/IS.pm

[..hidden..]

Revision: 3115
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3115&view=rev
Author:   einhverfr
Date:     2011-01-19 16:08:28 +0000 (Wed, 19 Jan 2011)

Log Message:
-----------
Correcting a warning with Perl 5.12

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IS.pm

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2011-01-09 19:02:58 UTC (rev 3114)
+++ branches/1.2/LedgerSMB/IS.pm	2011-01-19 16:08:28 UTC (rev 3115)
@@ -817,7 +817,7 @@
     my $exchangerate = 0;
     my $keepcleared  = 0;
 
-    $form{acc_trans} = ();
+    $form->{acc_trans} = ();
 
     if ($form->{id}){
         delete_invoice($self, $myconfig, $form);


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