version 1.3, 2012/06/24 13:44:53 |
version 1.4, 2012/06/24 20:56:57 |
|
|
push @$libnames, basename($f); |
push @$libnames, basename($f); |
} |
} |
foreach my $libfile (@$libnames) { |
foreach my $libfile (@$libnames) { |
LT::Trace::debug {"ln -s $f $dir/$libfile\n"}; |
my $link = "$dir/$libfile"; |
if (! -f "$dir/$libfile") { |
LT::Trace::debug {"ln -s $f $link\n"}; |
symlink abs_path($f), "$dir/$libfile" or die "Cannot create symlink: $!\n"; |
if (! -f $link) { |
|
my $p = abs_path($f); |
|
if (!symlink($p, $link)) { |
|
die "Cannot create symlink($p, $link): $!\n" unless $!{EEXIST}; |
|
} |
} |
} |
} |
} |
} |
} |