diff options
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/lex_assign.t | 1 | ||||
| -rwxr-xr-x | t/op/local.t | 3 | ||||
| -rwxr-xr-x | t/op/pat.t | 3 | ||||
| -rwxr-xr-x | t/op/regexp.t | 3 |
4 files changed, 0 insertions, 10 deletions
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t index ee74d93478..d761f73ce7 100755 --- a/t/op/lex_assign.t +++ b/t/op/lex_assign.t @@ -4,7 +4,6 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } -$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; umask 0; $xref = \ ""; diff --git a/t/op/local.t b/t/op/local.t index 781afa5b35..9f977b2cd4 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -2,9 +2,6 @@ print "1..71\n"; -# XXX known to leak scalars -$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; - sub foo { local($a, $b) = @_; local($c, $d); diff --git a/t/op/pat.t b/t/op/pat.t index a82da60e72..293e74869e 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -12,9 +12,6 @@ BEGIN { } eval 'use Config'; # Defaults assumed if this fails -# XXX known to leak scalars -$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; - $x = "abc\ndef\n"; if ($x =~ /^abc/) {print "ok 1\n";} else {print "not ok 1\n";} diff --git a/t/op/regexp.t b/t/op/regexp.t index 7fbfc97342..4a4d42fd98 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -1,8 +1,5 @@ #!./perl -# XXX known to leak scalars -$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; - # The tests are in a separate file 't/op/re_tests'. # Each line in that file is a separate test. # There are five columns, separated by tabs. |