From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 16 Jul 2002 17:56:17 +0000 (+0000)
Subject: Remove the extra warning since after it the right thing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52507950ff53d1e30142b93bc5dc60a0fa34b9e7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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++