Admit that the test leaks scalars.

p4raw-id: //depot/perl@7576

diff --git a/t/comp/proto.t b/t/comp/proto.t
index 31c7839..4c5b5ee 100755 (executable)
--- 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 *; }";