From 6457ad15a823e151d6a5899478ad425c84af7efc Mon Sep 17 00:00:00 2001 From: Ben Laurie Date: Sun, 7 Feb 1999 18:22:15 +0000 Subject: [PATCH] Minor tweaks to keep Perl 5.001 happy. --- Configure | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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; } -- 2.25.1