This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress warning from gv.t
[perl5.git] / t / op / gv.t
index 807d9b2..f04bda0 100644 (file)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -846,7 +846,7 @@ ok eval {
 # These two crashed in 5.13.6. They were likewise fixed in 5.13.7.
 ok eval {
   sub greck;
-  my $glob = \*phing::foo;
+  my $glob = do { no warnings "once"; \*phing::foo};
   delete $::{"phing::"};
   *$glob = *greck; 
 }, "Assigning a glob-with-sub to a glob that has lost its stash warks";