wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Hopefully improved compatibility with earlier versions of Perl5.

Browse source 
Submitted by:
Reviewed by:
PR:
This commit is contained in:
Bodo Möller 1999-04-30 11:32:41 +00:00
parent 0e88cb260b
commit 81c8ee091c
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
util/mklink.pl
View file

@ -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";