Bug 8117 follow-up remove perl warning

first & last were already defined, removing my

diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl
index 9e2f394..5f34dc2 100755 (executable)
--- 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;