[PATCH] t/pmc/signal.t (more accuracy finding process to HUP) - perl.perl6.internals

Message from discussion [PATCH] t/pmc/signal.t (more accuracy finding process to HUP)

Jeff Clites

View profile

More options Oct 11 2004, 3:47 am

Newsgroups: perl.perl6.internals

From: parrotbug-follo...@parrotcode.org (Jeff Clites)

Date: Mon, 11 Oct 2004 00:47:49 -0700

Local: Mon, Oct 11 2004 3:47 am

Subject: [perl #31932] [PATCH] t/pmc/signal.t (more accuracy finding process to HUP)

  Forward
  | Print
  | View thread
  | Show original
  | Report this message
  | Find messages by this author
  

# 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

Forward