[padb-devel] [padb] r283 committed - Changes to the mpirun rmgr, allow hosts with digits in the name and...

[codesite-noreply at google.com]

Revision: 283
Author: apittman
Date: Thu Oct  8 05:36:53 2009
Log: Changes to the mpirun rmgr, allow hosts with digits in the name and
secondly avoid the use of pdsh if there is only one active host and
it's the machine padb is running on.

http://code.google.com/p/padb/source/detail?r=283

Modified:
  /trunk/src/padb

=======================================
--- /trunk/src/padb	Thu Oct  8 04:04:19 2009
+++ /trunk/src/padb	Thu Oct  8 05:36:53 2009
@@ -2702,7 +2702,7 @@
      foreach my $proc ( 0 .. ( $nprocs - 1 ) ) {
          my $hostd = gdb_read_value(  
$gdb, "MPIR_proctable[$proc].host_name" );

-        if ( $hostd =~ m{\"(\w+)\"\z}x ) {
+        if ( $hostd =~ m{\"([\w\d]+)\"\z}x ) {
              my $host = $1;

              my $pid = gdb_read_value( $gdb, "MPIR_proctable[$proc].pid" );
@@ -2716,10 +2716,13 @@

      my @hosts = keys(%pt);

-    my $hlist = join q{,}, @hosts;
-
-    my $cmd = "pdsh -w $hlist";
-    my $hc  = @hosts;
+    my $cmd = $EMPTY_STRING;
+    if ( $hosts[0] ne hostname() or @hosts > 1 ) {
+        my $hlist = join q{,}, @hosts;
+        $cmd = "pdsh -w $hlist";
+    }
+
+    my $hc = @hosts;
      return ( $cmd, $nprocs, $hc, \%pt );
  }