more windows build tweaks

p4raw-id: //depot/perl@4774

1 files changed, 3 insertions, 1 deletions

diff --git a/installperl b/installperl
index 0ddbf38bfb..dae86a5c0e 100755
--- a/installperl
+++ b/installperl
@@ -512,11 +512,13 @@ sub link {
 	    ? $success++
 	    : ($from =~ m#^/afs/# || $to =~ m#^/afs/#)
 	      ? die "AFS"  # okay inside eval {}
-	      : warn "Couldn't link $from to $to: $!\n"
+	      : die "Couldn't link $from to $to: $!\n"
 	  unless $nonono;
         $packlist->{$to} = { from => $from, type => 'link' };
     };
     if ($@) {
+	warn $@;
+	print "  cp $from $to\n";
 	print "  creating new version of $to\n" if $Is_VMS and -e $to;
 	File::Copy::copy($from, $to)
 	    ? $success++