Some more tests for \N

[p5sagit/p5-mst-13.2.git] / t / op / qr_gc.t

diff --git a/t/op/qr_gc.t b/t/op/qr_gc.t
index 7de3f84..db2e96e 100644 (file)
--- a/t/op/qr_gc.t
+++ b/t/op/qr_gc.t
@@ -4,15 +4,17 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
+    undef &Regexp::DESTROY;
 }
 
 plan tests => 2;
 
-$TODO = "leaking since 32751";
+if ($] >= 5.011) { # doesn't leak on 5.10.x
+    $TODO = "leaking since 32751";
+}
 
 my $destroyed;
 {
-    no warnings 'redefine';
     sub Regexp::DESTROY { $destroyed++ }
 }