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

diff --git a/CHANGES b/CHANGES
index 95a0bd28c711993b2a6ecfbfdcc91b74da267858..b51d031a9cf5f2968e94e60e2c216dab2bb65fe5 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -5,6 +5,9 @@
 
  Changes between 0.9.1c and 0.9.2
 
+  *) Let util/clean-depend.pl work also with older Perl 5.00x versions.
+     [Matthias Loepfe <Matthias.Loepfe@adnovum.ch>]
+
   *) Fix Makefile.org so CC,CFLAG etc are passed to 'make links' add
      advapi32.lib to Win32 build and change the pem test comparision
      to fc.exe (thanks to Ulrich Kroener <kroneru@yahoo.com> for the

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:";