Remove the extra warning since after it the right thing

is attempted (and that gives a warning if necessary).

p4raw-id: //depot/perl@17578

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 0e8fa8f..1e2ee1a 100644 (file)
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -17,7 +17,6 @@ sub link { # This is a cut-down version of installperl:link().
              : die "Couldn't link $from to $to: $!\n";
     };
     if ($@) {
-       warn $@;
        require File::Copy;
        File::Copy::copy($from, $to)
            ? $success++