diff options
| author | rse <rse> | 1999-03-10 19:51:42 +0000 |
|---|---|---|
| committer | rse <rse> | 1999-03-10 19:51:42 +0000 |
| commit | e52e968c829417a128aee9c40201c46ab03a3f65 (patch) | |
| tree | 160bc80ec706b2ee56c9278247477718fa97e312 /util/clean-depend.pl | |
| parent | 32cd9fb5496248d9cbcc7ea8f48f518b57248b68 (diff) | |
| download | openssl-e52e968c829417a128aee9c40201c46ab03a3f65.tar.gz | |
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 9f775669d..7819deee4 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:"; |