Bug 15258: Fix Perl scripts declaring unused variables

[koha.git] / admin / transport-cost-matrix.pl

diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl
index 383318c..55fd912 100755 (executable)
--- a/admin/transport-cost-matrix.pl
+++ b/admin/transport-cost-matrix.pl
@@ -55,7 +55,7 @@ my @branchloop = map { code => $_,
                        name => $branches->{$_}->{'branchname'} },
                  sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
                  keys %$branches;
-my (@branchfromloop, @cost, @errors);
+my (@branchfromloop, @errors);
 foreach my $branchfrom ( @branchloop ) {
     my $fromcode = $branchfrom->{code};