[padb-devel] [padb] r284 committed - Also allow dashes in hostnames and warn if they hostnames aren't match...

[codesite-noreply at google.com]

Revision: 284
Author: apittman
Date: Thu Oct  8 07:57:31 2009
Log: Also allow dashes in hostnames and warn if they hostnames aren't  
matched.

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

Modified:
  /trunk/src/padb

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

-        if ( $hostd =~ m{\"([\w\d]+)\"\z}x ) {
+        if ( $hostd =~ m{\"([\w\d\-\.]+)\"\z}x ) {
              my $host = $1;
-
              my $pid = gdb_read_value( $gdb, "MPIR_proctable[$proc].pid" );
-
              $pt{$host}{$proc} = $pid;
+        } else {
+            print "Failed to extract hostname from $hostd\n";
          }
      }