From 0e57f9986c4d2c394ad5e1d1b0b225f90eab3300 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Nov 2000 20:33:46 +0000
Subject: [PATCH] Admit that the test leaks scalars.

p4raw-id: //depot/perl@7576
---
 t/comp/proto.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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