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

[..hidden..]

Revision: 3032
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3032&view=rev
Author:   jfkw
Date:     2010-07-29 02:14:47 +0000 (Thu, 29 Jul 2010)

Log Message:
-----------
LedgerSMB/IS.pm: fix using a hash as a reference deprecated in Perl 5.12.

Fix one instance of:

%$form->{acc_trans} = ();

with:

$form{acc_trans} = ();

Additional commits to fix throughout 1.2 codebase to follow, pending comments.

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

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2010-07-27 18:00:31 UTC (rev 3031)
+++ branches/1.2/LedgerSMB/IS.pm	2010-07-29 02:14:47 UTC (rev 3032)
@@ -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.