This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
As the test is about the parser, not actually running the code, better
[perl5.git] / t / op / gv.t
index b5f63be..bca84e7 100755 (executable)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -478,7 +478,7 @@ foreach my $value ([1,2,3], {1=>2}, *STDOUT{IO}, \&ok, *STDOUT{FORMAT}) {
        "Can't trip up general keyword overloading");
 
     $CORE::GLOBAL::{"readline"}=[];
-    eval "no warnings; <STDOUT>";
+    eval "<STDOUT> if 0";
     is($@, '', "Can't trip up readline overloading");
 
     $CORE::GLOBAL::{"readpipe"}=[];