diff options
author | Ralf S. Engelschall <rse@openssl.org> | 1999-03-10 19:51:43 +0000 |
---|---|---|
committer | Ralf S. Engelschall <rse@openssl.org> | 1999-03-10 19:51:43 +0000 |
commit | 637691e6b4d66c3c4cc6331ea4d4c2a2c4b79d70 (patch) | |
tree | 14d1884b58ae2c84ee5c42c7c6080fbc5f642d74 /util/clean-depend.pl | |
parent | 381380206b717eff835a81d5d451f4854032e52e (diff) |
Let util/clean-depend.pl work also with older Perl 5.00x versions.
Submitted by: Matthias Loepfe <Matthias.Loepfe@adnovum.ch>
Reviewed by: Ralf S. Engelschall
Diffstat (limited to 'util/clean-depend.pl')
-rwxr-xr-x | util/clean-depend.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/util/clean-depend.pl b/util/clean-depend.pl index 9f775669da..7819deee4e 100755 --- 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:"; |