summaryrefslogtreecommitdiff
path: root/t/comp
diff options
context:
space:
mode:
Diffstat (limited to 't/comp')
-rwxr-xr-xt/comp/proto.t5
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 *; }";