From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 31 Mar 2009 09:32:28 +0000 (+0100)
Subject: Avoid "Constant subroutine ... redefined" warning, spotted by Jerry D. Hedden.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b75281af561c595477178d509f948fe07901708a;p=p5sagit%2Fp5-mst-13.2.git

Avoid "Constant subroutine ... redefined" warning, spotted by Jerry D. Hedden.
---

diff --git a/t/op/qr_gc.t b/t/op/qr_gc.t
index 7de3f84..5694269 100644
--- a/t/op/qr_gc.t
+++ b/t/op/qr_gc.t
@@ -4,6 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
+    undef &Regexp::DESTROY;
 }
 
 plan tests => 2;
@@ -12,7 +13,6 @@ $TODO = "leaking since 32751";
 
 my $destroyed;
 {
-    no warnings 'redefine';
     sub Regexp::DESTROY { $destroyed++ }
 }