summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-04 05:03:00 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-04 05:03:00 +0000
commit6b5cb48cda959b50de283dd498edd6abcccb1f81 (patch)
tree791be5ea562e84927ca3b9faa6eb1b48a7407d88 /t
parent6a34af384f581a141833588aa304bcb3afcba4ca (diff)
downloadperl-6b5cb48cda959b50de283dd498edd6abcccb1f81.tar.gz
OS/2 build fixups from Ilya Zakharevich
p4raw-id: //depot/perl@4973
Diffstat (limited to 't')
-rwxr-xr-xt/op/fork.t4
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";