From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 4 Jul 1999 23:07:39 +0000 (+0000)
Subject: test tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=faf89a90b9d9ca73fe8e05bd84a30e7989fb5351;p=p5sagit%2Fp5-mst-13.2.git

test tweak

p4raw-id: //depot/perl@3577
---

diff --git a/t/io/openpid.t b/t/io/openpid.t
index 2d3ac9f..334bc0d 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";