diff options
author | Bodo Möller <bodo@openssl.org> | 1999-04-30 11:32:41 +0000 |
---|---|---|
committer | Bodo Möller <bodo@openssl.org> | 1999-04-30 11:32:41 +0000 |
commit | 81c8ee091c7f9f99fea6608f43fb7c2bc20be57a (patch) | |
tree | 840c4738b20cfe57b836161ad649bc09e74019d2 /util/mklink.pl | |
parent | 0e88cb260baf5e1d748a58608d97d5d704e381ab (diff) |
Hopefully improved compatibility with earlier versions of Perl5.
Submitted by:
Reviewed by:
PR:
Diffstat (limited to 'util/mklink.pl')
-rwxr-xr-x | util/mklink.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/util/mklink.pl b/util/mklink.pl index a5a5248c36..5c3d5976dd 100755 --- a/util/mklink.pl +++ b/util/mklink.pl @@ -24,7 +24,9 @@ chop($pwd); my @pwd_path = split(/\//, $pwd); my @to_path = (); -foreach my $dirname (@from_path) { + +my $dirname; +foreach $dirname (@from_path) { # In this loop, @to_path always is a relative path from # @pwd_path (interpreted is an absolute path) to the original pwd. @@ -45,7 +47,8 @@ foreach my $dirname (@from_path) { my $to = join('/', @to_path); -foreach my $file (@files) { +my $file; +foreach $file (@files) { # print "ln -s $to/$file $from/$file\n"; symlink("$to/$file", "$from/$file"); print $file . " => $from/$file\n"; |