Avoid "Constant subroutine ... redefined" warning, spotted by Jerry D. Hedden.
authorNicholas Clark <nick@ccl4.org>
Tue, 31 Mar 2009 09:32:28 +0000 (10:32 +0100)
committerDavid Mitchell <davem@iabyn.com>
Sun, 19 Apr 2009 22:59:22 +0000 (23:59 +0100)
(cherry picked from commit b75281af561c595477178d509f948fe07901708a)

t/op/qr_gc.t

index 7de3f84..5694269 100644 (file)
@@ -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++ }
 }