oops, left some debugging code
authorTony Cook <tony@develop-help.com>
Fri, 24 Aug 2012 07:42:48 +0000 (17:42 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 24 Aug 2012 07:42:48 +0000 (17:42 +1000)
left from fixing perl #112272

t/win32/fs.t

index cbe697c..89992c8 100644 (file)
@@ -21,7 +21,6 @@ SKIP: {
         and skip("somehow, the files exist", 4);
     ok(!link($tmpfile1, $tmpfile2),
        "Cannot link to unknown file");
         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);
     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");
     close $fh;
     ok(!link($tmpfile1, $tmpfile2),
        "Cannot link to existing file");
-    warn $!;
     is(0+$!, &Errno::EEXIST, "check for EEXIST");
 }
 
     is(0+$!, &Errno::EEXIST, "check for EEXIST");
 }