s/Nick Clark/Nicholas Clark/

[p5sagit/p5-mst-13.2.git] / t / io / dup.t

diff --git a/t/io/dup.t b/t/io/dup.t
index 91e4f26..48497fd 100755 (executable)
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use Config;
+no warnings 'once';
 
 my $test = 1;
 print "1..26\n";
@@ -96,7 +97,7 @@ SKIP: {
     isnt(fileno(F), fileno(STDOUT));
     close F;
 
-    ok(open(F, "<&=STDIN"));
+    ok(open(F, "<&=STDIN")) or _diag $!;
     is(fileno(F), fileno(STDIN));
     close F;