358 |
warn "# symlink( $from_path -> $to_path ) = $rv\n" if $debug; |
warn "# symlink( $from_path -> $to_path ) = $rv\n" if $debug; |
359 |
|
|
360 |
my $tmp = $mount->{tmp} . '/' . $from; |
my $tmp = $mount->{tmp} . '/' . $from; |
361 |
if ( -e $tmp ) { |
my $tmp_to = $mount->{tmp} . '/' . $to; |
362 |
my $tmp_to = $mount->{$tmp} . '/' . $to; |
if ( $rv == 0 && -e $tmp_to ) { |
363 |
symlink( $tmp, $tmp_to ) || confess "can't symlink $tmp -> $tmp_to: $!"; |
symlink( $tmp, $tmp_to ) || confess "can't symlink $tmp -> $tmp_to: $!"; |
364 |
} |
} |
365 |
return $rv; |
return $rv; |