Integrate with Sarathy.

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index 0ddbf38..7c0bed7 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -156,8 +156,7 @@ if ($Is_Cygwin) {
     };
   };
 } else {
-  $perldll = 'perl.' . $dlext;
-  $perldll = 'perl56.' . $dlext if $Config{'ccflags'} =~ /PERL_OBJECT/i;
+  $perldll = 'perl56.' . $dlext;
 }
 
    if ($dlsrc ne "dl_none.xs") {
@@ -512,11 +511,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++