test tweak
Gurusamy Sarathy [Sun, 4 Jul 1999 23:07:39 +0000 (23:07 +0000)]
p4raw-id: //depot/perl@3577

t/io/openpid.t

index 2d3ac9f..334bc0d 100755 (executable)
@@ -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";