[Linux-disciples] Killing child processes in Perl

[Stephen R Laniel]

On Wed, Jul 12, 2006 at 03:47:09PM -0400, Stephen R Laniel wrote:
>       $sigName = getSigNameFromNum($sigNum);

I should have added

sub getSigNameFromNum($) {
  my $num = shift;
  use Config;
  my @sigNames = split ' ', $Config{sig_name};
  if( $sigNames[$num] ) {
    return $sigNames[$num];
  }
  else {
    warn "No such signal $num";
    return undef;
  }
}

-- 
Stephen R. Laniel
steve at laniels.org
Cell: +(617) 308-5571
http://laniels.org/
PGP key: http://laniels.org/slaniel.key
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: Digital signature
Url : http://lists.bostoncoop.net/pipermail/linux-disciples/attachments/20060712/57ba66a3/attachment.pgp