From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 3 Mar 2007 15:28:39 +0000 (+0000)
Subject: As the test is about the parser, not actually running the code, better
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3c9268ed0dec6021c3bd2a7a1bfda7d4fd445a3;p=p5sagit%2Fp5-mst-13.2.git

As the test is about the parser, not actually running the code, better
to avoid running <STDOUT> rather than run it with warnings disabled.

p4raw-id: //depot/perl@30452
---

diff --git a/t/op/gv.t b/t/op/gv.t
index b5f63be..bca84e7 100755
--- 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"}=[];