From 637691e6b4d66c3c4cc6331ea4d4c2a2c4b79d70 Mon Sep 17 00:00:00 2001
From: "Ralf S. Engelschall" <rse@openssl.org>
Date: Wed, 10 Mar 1999 19:51:43 +0000
Subject: [PATCH] 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
---
 CHANGES              | 3 +++
 util/clean-depend.pl | 6 ++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/CHANGES b/CHANGES
index 95a0bd28c7..b51d031a9c 100644
--- 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 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:";
-- 
GitLab