diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-14 18:26:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-14 18:26:08 +0000 |
| commit | d33b2eba4a0e814b78ec910034b3f6943f4805ac (patch) | |
| tree | cd90641922735c1bc7a1027bea2c5cbe7f46eede /t/pragma | |
| parent | f5a32c7f87cd929827e4ff3bd7c4afabda8d29d9 (diff) | |
| download | perl-d33b2eba4a0e814b78ec910034b3f6943f4805ac.tar.gz | |
fix small interpreter leaks identified by Purify
p4raw-id: //depot/perl@5084
Diffstat (limited to 't/pragma')
| -rw-r--r-- | t/pragma/warnings.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t index 73e4c8d1a8..41324e68cc 100644 --- a/t/pragma/warnings.t +++ b/t/pragma/warnings.t @@ -88,6 +88,8 @@ for (@prgs){ # bison says 'parse error' instead of 'syntax error', # various yaccs may or may not capitalize 'syntax'. $results =~ s/^(syntax|parse) error/syntax error/mig; + # allow all tests to run when there are leaks + $results =~ s/Scalars leaked: \d+\n//g; $expected =~ s/\n+$//; my $prefix = ($results =~ s/^PREFIX\n//) ; # any special options? (OPTIONS foo bar zap) |