diff options
author | Ben Laurie <ben@openssl.org> | 1999-02-07 18:22:15 +0000 |
---|---|---|
committer | Ben Laurie <ben@openssl.org> | 1999-02-07 18:22:15 +0000 |
commit | 6457ad15a823e151d6a5899478ad425c84af7efc (patch) | |
tree | 8eeddfff7e4818a10e0412175693b87574e1dd45 /Configure | |
parent | 643aaa19793046ca9362da040038ab50003ca17a (diff) | |
download | openssl-6457ad15a823e151d6a5899478ad425c84af7efc.tar.gz |
Minor tweaks to keep Perl 5.001 happy.
Diffstat (limited to 'Configure')
-rwxr-xr-x | Configure | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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; } |