summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-07-04 23:07:39 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-07-04 23:07:39 +0000
commitfaf89a90b9d9ca73fe8e05bd84a30e7989fb5351 (patch)
tree53585846afb977c989a8c6512e4acc5765d03ae4 /t
parentd91d68c10c209afd8c4afd24673b7e49effc1e4b (diff)
downloadperl-faf89a90b9d9ca73fe8e05bd84a30e7989fb5351.tar.gz
test tweak
p4raw-id: //depot/perl@3577
Diffstat (limited to 't')
-rwxr-xr-xt/io/openpid.t5
1 files changed, 2 insertions, 3 deletions
diff --git a/t/io/openpid.t b/t/io/openpid.t
index 2d3ac9f32f..334bc0d65b 100755
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -1,4 +1,3 @@
-
#!./perl
#####################################################################
@@ -55,7 +54,7 @@ chomp($from_pid1 = scalar(<FH1>));
print "# child1 returned [$from_pid1]\nnot "
unless $from_pid1 eq 'first process';
print "ok 5\n";
-$kill_cnt = kill STOP, $pid1;
+$kill_cnt = kill 'HUP', $pid1;
print "not " unless $kill_cnt == 1;
print "ok 6\n";
@@ -64,7 +63,7 @@ chomp($from_pid2 = scalar(<FH2>));
print "# child2 returned [$from_pid2]\nnot "
unless $from_pid2 eq 'second process';
print "ok 7\n";
-$kill_cnt = kill STOP, $pid2, $pid3;
+$kill_cnt = kill 'HUP', $pid2, $pid3;
print "not " unless $kill_cnt == 2;
print "ok 8\n";