diff options
| -rwxr-xr-x | t/comp/proto.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 31c78396c0..4c5b5eee83 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -9,6 +9,9 @@ # we should test as many as we can. # +# XXX known to leak scalars +$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; + BEGIN { chdir 't' if -d 't'; @INC = '../lib'; @@ -488,8 +491,6 @@ sub sreftest (\$$) { # test prototypes when they are evaled and there is a syntax error # -# NOTE: evaled syntax errors mean scalar leaks -# for my $p ( "", qw{ () ($) ($@) ($%) ($;$) (&) (&\@) (&@) (%) (\%) (\@) } ) { no warnings 'redefine'; my $eval = "sub evaled_subroutine $p { &void *; }"; |