From 92c481c8e931fba217427e4523c805f5180a7552 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 22 Sep 2008 23:06:22 +0000
Subject: Correcting scoping issue which causes problems in Perl 5.10.0

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2334 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/OE.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm
index 2a29c5d0..a4964148 100755
--- a/LedgerSMB/OE.pm
+++ b/LedgerSMB/OE.pm
@@ -1317,7 +1317,7 @@ sub order_details {
             $taxamount =
               Tax::calculate_taxes( \@taxaccounts, $form, $linetotal, 1 );
             $taxbase = Tax::extract_taxes( \@taxaccounts, $form, $linetotal );
-            foreach $item (@taxaccounts) {
+            foreach my $item (@taxaccounts) {
                 push @taxrates, Math::BigFloat->new(100) * $item->rate;
                 if ( $form->{taxincluded} ) {
                     $taxaccounts{ $item->account } += $item->value;
-- 
cgit v1.2.3