From 9924b1bea3e50f6a1570a44d43577bb544e282cc Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 20 Aug 2008 18:27:39 +0000
Subject: Correcting errors on Perl 5.10 when sales tax is applied

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

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 51edf0ed..36777a4f 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -375,7 +375,7 @@ sub invoice_details {
                 $tax += Tax::apply_taxes( \@taxaccounts, $form, $linetotal );
             }
 
-            foreach $item (@taxaccounts) {
+            foreach my $item (@taxaccounts) {
                 push @taxrates, 100 * $item->rate;
                 $taxaccounts{ $item->account } += $item->value;
                 if ( $form->{taxincluded} ) {
-- 
cgit v1.2.3