define used variable, as we're now using strict

diff --git a/scripts/debian/update-ftpstats b/scripts/debian/update-ftpstats
index 7cad65906ed2c516cb0fe043ee746166918e6f8b..26379bcc42fc30c94ea0d9ec2704a18eb8e1144a 100755 (executable)
--- a/scripts/debian/update-ftpstats
+++ b/scripts/debian/update-ftpstats
@@ -27,7 +27,7 @@ for my $file (@ARGV) {
   }
 }
 
-foreach $p (sort keys %data) {
+foreach my $p (sort keys %data) {
   print "$p";
   foreach $a (@archs) {
     print ", $data{$p}{$a}";