[perl #8262] //g loops infinitely on tainted data

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

diff --git a/t/io/read.t b/t/io/read.t
index 63ffee1..2665ecb 100755 (executable)
--- a/t/io/read.t
+++ b/t/io/read.t
@@ -1,7 +1,5 @@
 #!./perl
 
-# $RCSfile$
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
@@ -35,6 +33,7 @@ SKIP: {
     skip "no EBADF", 1 if (!exists &Errno::EBADF);
 
     $! = 0;
+    no warnings 'unopened';
     read(B,$b,1);
     ok($! == &Errno::EBADF);
 }