From 52507950ff53d1e30142b93bc5dc60a0fa34b9e7 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 16 Jul 2002 17:56:17 +0000
Subject: Remove the extra warning since after it the right thing is attempted
 (and that gives a warning if necessary).

p4raw-id: //depot/perl@17578
---
 x2p/s2p.PL | 1 -
 1 file changed, 1 deletion(-)

(limited to 'x2p/s2p.PL')

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 0e8fa8f2a6..1e2ee1a6ac 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++
-- 
cgit v1.2.1