Re: overriding builtins quirk

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

diff --git a/t/op/sort.t b/t/op/sort.t
index c1dfb63..2a86b38 100755 (executable)
--- a/t/op/sort.t
+++ b/t/op/sort.t
@@ -7,12 +7,6 @@ BEGIN {
 use warnings;
 print "1..58\n";
 
-# XXX known to leak scalars
-{
-  no warnings 'uninitialized';
-  $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
-}
-
 # these shouldn't hang
 {
     no warnings;