Let util/clean-depend.pl work also with older Perl 5.00x versions.

[openssl.git] / util / clean-depend.pl

diff --git a/util/clean-depend.pl b/util/clean-depend.pl
index 9f775669da5936d3252a133995d49ef1e4da7516..7819deee4e96b7b9bffbc40f253bb853de4decd8 100755 (executable)
--- a/util/clean-depend.pl
+++ b/util/clean-depend.pl
@@ -19,9 +19,11 @@ while(<STDIN>) {
     push @{$files{$file}},@deps;
 }
 
-foreach my $file (sort keys %files) {
+my $file;
+foreach $file (sort keys %files) {
     my $len=0;
-    foreach my $dep (sort @{$files{$file}}) {
+    my $dep;
+    foreach $dep (sort @{$files{$file}}) {
        $len=0 if $len+length($dep)+1 >= 80;
        if($len == 0) {
            print "\n$file:";