SF.net SVN: ledger-smb:[2776] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 2776
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2776&view=rev
Author:   einhverfr
Date:     2009-10-28 18:24:03 +0000 (Wed, 28 Oct 2009)

Log Message:
-----------
Correcting error in patch applied

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2009-10-27 19:43:06 UTC (rev 2775)
+++ trunk/LedgerSMB/Form.pm	2009-10-28 18:24:03 UTC (rev 2776)
@@ -65,7 +65,7 @@
 use Cwd;
 use File::Copy;
 
-use charnames ':full';
+use charnames qw(':full');
 use open ':utf8';
 package Form;
 
@@ -107,7 +107,8 @@
         $_ = $ARGV[0];
     }
 
-    my $self = {}, $orig = {};
+    my $self = {};
+    my $orig = {};
     %$orig = split /[&=]/;
     for ( keys %$orig ) { 
         $self->{unescape( "", $_) } = unescape( "", $orig->{$_} );


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