From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Nov 2000 20:33:46 +0000 (+0000)
Subject: Admit that the test leaks scalars.
X-Git-Tag: accepted/trunk/20130322.191538~33733
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0e57f9986c4d2c394ad5e1d1b0b225f90eab3300;p=platform%2Fupstream%2Fperl.git

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
--- 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 *; }";