[padb] r341 committed - Store nprocs for pbs jobs in a variable rather than a single-length ar...

[padb at googlecode.com]

Revision: 341
Author: apittman
Date: Thu Nov 26 02:30:48 2009
Log: Store nprocs for pbs jobs in a variable rather than a single-length  
array.

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

Modified:
  /trunk/src/padb

=======================================
--- /trunk/src/padb	Wed Nov 25 12:57:47 2009
+++ /trunk/src/padb	Thu Nov 26 02:30:48 2009
@@ -2662,8 +2662,7 @@
              my @champs = split(/\s+/);    # split by space
              if ( $champs[9] eq 'R' ) {    # take only Running
                  ($job) = split qr{\.}, $champs[0];
-                $nprocess = $champs[6];
-                push( @{ $pbs_tabjobs{$job}{nproc} }, $nprocess );
+                $pbs_tabjobs{$job}{nproc} = $champs[6];
              } else {
                  $job = undef;
              }
@@ -2732,15 +2731,13 @@
      my $job = shift;
      my $d   = pbs_get_data($target_user);

-    my @hosts  = @{ $d->{$job}{hosts} };
-    my @nprocs = @{ $d->{$job}{nproc} };
-    my $nprocs = $nprocs[0];
+    my @hosts = @{ $d->{$job}{hosts} };

      config_set_internal( 'pbs_server', $d->{$job}{server} );

      my %pcmd;

-    $pcmd{nprocesses} = $nprocs;
+    $pcmd{nprocesses} = $d->{$job}{nproc};
      $pcmd{nhosts}     = @hosts;
      @{ $pcmd{host_list} } = @hosts;