1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t
index f8c037d4bf..2f674d103b 100755
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -4,7 +4,8 @@
 
 print "1..58\n";
 
-$ENV{PERL_DESTRUCT_LEVEL} = 0; # XXX known to leaks scalars
+# XXX known to leak scalars
+$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
 
 sub foo {
     local($a, $b) = @_;