From 4a68a3205c84919dc30bb157c7d6074d463dfdf6 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 30 Oct 2010 06:52:00 -0700
Subject: Suppress warning from gv.t

---
 t/op/gv.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/op/gv.t')

diff --git a/t/op/gv.t b/t/op/gv.t
index 807d9b2fe2..f04bda0575 100644
--- 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";
-- 
cgit v1.2.1