diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-06 20:33:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-06 20:33:46 +0000 |
| commit | 0e57f9986c4d2c394ad5e1d1b0b225f90eab3300 (patch) | |
| tree | 04a355c13dbc32f4b4e7016d39b1eba88abe195e /t/comp/proto.t | |
| parent | a53d62f52614ccf977e91e146ce5b804d06920cf (diff) | |
| download | perl-0e57f9986c4d2c394ad5e1d1b0b225f90eab3300.tar.gz | |
Admit that the test leaks scalars.
p4raw-id: //depot/perl@7576
Diffstat (limited to 't/comp/proto.t')
| -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 *; }"; |