diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-03-31 10:32:28 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-03-31 10:34:01 +0100 |
commit | b75281af561c595477178d509f948fe07901708a (patch) | |
tree | f3dc3b9b1c385eb672209499237eaec1b5b43189 /t | |
parent | 89b75a3bb567ba74d8de183f09a611ebbc42ccd8 (diff) | |
download | perl-b75281af561c595477178d509f948fe07901708a.tar.gz |
Avoid "Constant subroutine ... redefined" warning, spotted by Jerry D. Hedden.
Diffstat (limited to 't')
-rw-r--r-- | t/op/qr_gc.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/qr_gc.t b/t/op/qr_gc.t index 7de3f845f5..56942698e2 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++ } } |