[padb-devel] [padb commit] r44 - Accept signal names in lower or mixed case.

[codesite-noreply at google.com]

Author: apittman
Date: Thu Jun 11 03:38:40 2009
New Revision: 44

Modified:
    trunk/src/padb

Log:
Accept signal names in lower or mixed case.


Modified: trunk/src/padb
==============================================================================
--- trunk/src/padb	(original)
+++ trunk/src/padb	Thu Jun 11 03:38:40 2009
@@ -3455,7 +3455,7 @@

      # If delivering a signal check that it's valid.
      if ( defined($mode) and ( $mode eq "kill" ) ) {
-        my $signal = $secondary_args{signal};
+        my $signal = uc( $secondary_args{signal} );
          my %sig_names;
          map { $sig_names{$_} = 1 } split( " ", $Config{"sig_name"} );

@@ -5157,7 +5157,8 @@

  sub kill_proc {
      my ( $vp, $pid ) = @_;
-    kill( $confInner{args}{signal}, $pid );
+    my $signal = uc( $confInner{args}{signal} );
+    kill( $signal, $pid );
  }

  sub show_queue {