diff options
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/installperl b/installperl index 07b1e55627..ad1ad91c5a 100755 --- a/installperl +++ b/installperl @@ -349,7 +349,9 @@ sub link { eval { CORE::link($from, $to) ? $success++ - : warn "Couldn't link $from to $to: $!\n" + : ($from =~ m#^/afs/# || $to =~ m#^/afs/#) + ? die "AFS" # okay inside eval {} + : warn "Couldn't link $from to $to: $!\n" unless $nonono; }; if ($@) { |