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 | |
parent | f5a32c7f87cd929827e4ff3bd7c4afabda8d29d9 (diff) | |
download | perl-d33b2eba4a0e814b78ec910034b3f6943f4805ac.tar.gz |
fix small interpreter leaks identified by Purify
p4raw-id: //depot/perl@5084
Diffstat (limited to 't')
-rwxr-xr-x | t/op/ord.t | 2 | ||||
-rw-r--r-- | t/pragma/warnings.t | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/t/op/ord.t b/t/op/ord.t index bc6d924554..b1dc062a1f 100755 --- a/t/op/ord.t +++ b/t/op/ord.t @@ -13,4 +13,4 @@ if (ord('A') == 65 || ord('A') == 193) {print "ok 1\n";} else {print "not ok 1\n $x = 'ABC'; if (ord($x) == 65 || ord($x) == 193) {print "ok 2\n";} else {print "not ok 2\n";} -if (chr 65 == 'A' || chr 193 == 'A') {print "ok 3\n";} else {print "not ok 3\n";} +if (chr 65 eq 'A' || chr 193 eq 'A') {print "ok 3\n";} else {print "not ok 3\n";} 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) |