From: Tony Cook <tony@develop-help.com>
Date: Fri, 24 Aug 2012 07:42:48 +0000 (+1000)
Subject: oops, left some debugging code
X-Git-Tag: upstream/5.20.0~5665
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c58baf15ae09f5f9fbb600b78e7e4cc568e056c5;p=platform%2Fupstream%2Fperl.git

oops, left some debugging code

left from fixing perl #112272
---

diff --git a/t/win32/fs.t b/t/win32/fs.t
index cbe697c..89992c8 100644
--- a/t/win32/fs.t
+++ b/t/win32/fs.t
@@ -21,7 +21,6 @@ SKIP: {
         and skip("somehow, the files exist", 4);
     ok(!link($tmpfile1, $tmpfile2),
        "Cannot link to unknown file");
-    warn $!;
     is(0+$!, &Errno::ENOENT, "check errno is ENOENT");
     open my $fh, ">", $tmpfile1
 	or skip("Cannot create test link src", 2);
@@ -31,7 +30,6 @@ SKIP: {
     close $fh;
     ok(!link($tmpfile1, $tmpfile2),
        "Cannot link to existing file");
-    warn $!;
     is(0+$!, &Errno::EEXIST, "check for EEXIST");
 }