# New Ticket Created by Jeff Clites
# Please include the string: [perl #31932]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31932 >
Just a slight improvement in the logic used to find the PID of the
process to signal. (For me, it killed t/harness once, rather than the
test process.)
JEff
Index: t/pmc/signal.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/signal.t,v
retrieving revision 1.12
diff -u -b -r1.12 signal.t
--- t/pmc/signal.t 7 Oct 2004 07:26:34 -0000 1.12
+++ t/pmc/signal.t 11 Oct 2004 07:44:22 -0000
@@ -12,7 +12,7 @@
=head1 DESCRIPTION
-Tests signal handling. All test are skipped unless running on Linux.
+Tests signal handling.
=cut
@@ -48,7 +48,7 @@
sub send_SIGHUP {
$SIG{ALRM} = sub {
# get PID of parrot
- my @ps = `ps axw | grep [p]arrot`;
+ my @ps = grep { !/harness/ && !/sh -c/ } `ps axw | grep
'[p]arrot'`;
die 'no output from ps' unless @ps;
# the IO thread parrot process
# on linux 2.2.x there are 4 processes, last is the IO thread
