diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-04 05:03:00 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-04 05:03:00 +0000 |
commit | 6b5cb48cda959b50de283dd498edd6abcccb1f81 (patch) | |
tree | 791be5ea562e84927ca3b9faa6eb1b48a7407d88 /t | |
parent | 6a34af384f581a141833588aa304bcb3afcba4ca (diff) | |
download | perl-6b5cb48cda959b50de283dd498edd6abcccb1f81.tar.gz |
OS/2 build fixups from Ilya Zakharevich
p4raw-id: //depot/perl@4973
Diffstat (limited to 't')
-rwxr-xr-x | t/op/fork.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/fork.t b/t/op/fork.t index f3d74f978f..d82c04ff79 100755 --- a/t/op/fork.t +++ b/t/op/fork.t @@ -24,7 +24,7 @@ print "1..", scalar @prgs, "\n"; $tmpfile = "forktmp000"; 1 while -f ++$tmpfile; -END { unlink $tmpfile if $tmpfile; } +END { close TEST; unlink $tmpfile if $tmpfile; } $CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : 'cat'); @@ -54,6 +54,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; + $results =~ s/^\n*Process terminated by SIG\w+\n?//mg + if $^O eq 'os2'; my @results = sort split /\n/, $results; if ( "@results" ne "@expected" ) { print STDERR "PROG: $switch\n$prog\n"; |