From d3fcc8b973090e522b284bc8b70eaf84b607bddd Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Wed, 19 Sep 2012 16:29:46 +0200
Subject: [PATCH] Bug 8117 follow-up remove perl warning

first & last were already defined, removing my
---
 admin/aqbudgetperiods.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl
index 9e2f3940ca..5f34dc235e 100755
--- a/admin/aqbudgetperiods.pl
+++ b/admin/aqbudgetperiods.pl
@@ -270,8 +270,9 @@ $results = GetBudgetPeriods(
     {budget_period_active => 0},
     [{budget_period_enddate => 1}]
 );
-my $first = ( $inactivepage - 1 ) * $inactivepagesize;
-my $last = min( $first + $inactivepagesize - 1, scalar @{$results} - 1, );
+
+$first = ( $inactivepage - 1 ) * $inactivepagesize;
+$last = min( $first + $inactivepagesize - 1, scalar @{$results} - 1, );
 my @period_inactive_loop;
 foreach my $result ( @{$results}[ $first .. $last ] ) {
     my $budgetperiod = $result;
-- 
2.39.5