Test hex('x...').

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

diff --git a/t/op/substr.t b/t/op/substr.t
index fe53f01..87efcb4 100755 (executable)
--- a/t/op/substr.t
+++ b/t/op/substr.t
@@ -2,8 +2,6 @@
 
 print "1..106\n";
 
-$ENV{PERL_DESTRUCT_LEVEL} = 0; # XXX known to leaks scalars
-
 #P = start of string  Q = start of substr  R = end of substr  S = end of string
 
 $a = 'abcdefxyz';