generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor tweaks to keep Perl 5.001 happy.

Browse Source
This commit is contained in:
Ben Laurie 1999-02-07 18:22:15 +00:00
parent 643aaa1979
commit 6457ad15a8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Configure
View File

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