From 9fe7e163cad35624e7ca0b41ac42ad849f9787a9 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 9 Jan 2000 23:56:37 +0000
Subject: more windows build tweaks

p4raw-id: //depot/perl@4774
---
 installperl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'installperl')

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++
-- 
cgit v1.2.1