From: Ben Laurie <ben@openssl.org>
Date: Sun, 7 Feb 1999 18:22:15 +0000 (+0000)
Subject: Minor tweaks to keep Perl 5.001 happy.
X-Git-Tag: OpenSSL_0_9_2b~183
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=6457ad15a823e151d6a5899478ad425c84af7efc;p=oweals%2Fopenssl.git

Minor tweaks to keep Perl 5.001 happy.
---

diff --git a/Configure b/Configure
index 83d4196da4..c89306b583 100755
--- a/Configure
+++ b/Configure
@@ -599,7 +599,8 @@ sub bad_target
 	print STDERR "Usage: Configure [-Dxxx] [-Lxxx] [-lxxx] os/compiler\n";
 	print STDERR "pick os/compiler from:";
 	my $j=0;
-	foreach my $i (sort keys %table)
+	my $i;
+	foreach $i (sort keys %table)
 		{
 		print STDERR "\n" if ($j++ % 4) == 0;
 		printf(STDERR "%-18s ",$i);
@@ -617,5 +618,5 @@ sub Rename
 	    }
 	}
 
-sub file_new { local($a)=@_; $a =~ s/(\.[^.]+$|$)/.new/; $a; }
-sub file_old { local($a)=@_; $a =~ s/(\.[^.]+$|$)/.old/; $a; }
+sub file_new { my($a)=@_; $a =~ s/(\.[^.]+$|$)/.new/; $a; }
+sub file_old { my($a)=@_; $a =~ s/(\.[^.]+$|$)/.old/; $a; }