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++ }
}