| line |
true |
false |
branch |
|
248
|
0 |
0 |
if defined $params{'machinesfile'} |
|
249
|
0 |
0 |
if defined $params{'hosts'} |
|
255
|
0 |
0 |
if (defined $Parallel::Mpich::MPD::env{'conf'}{'rpc'}) |
|
258
|
0 |
0 |
if (defined $usermachinesfile) { } |
|
|
0 |
0 |
elsif (defined $Parallel::Mpich::MPD::env{'conf'}{'mpd'}{'hostsfile'}) { } |
|
269
|
0 |
0 |
if (defined $params{'checkOnly'}) { } |
|
|
0 |
0 |
elsif (defined $params{'verbose'}) { } |
|
276
|
0 |
0 |
if (defined $params{'output'}) |
|
294
|
0 |
0 |
if ($jobret == 0) |
|
298
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::DEBUG == 1 |
|
310
|
0 |
0 |
unless (defined $params{'host'}) |
|
317
|
0 |
0 |
if ((my $c = %mpdinfo) eq '0') |
|
326
|
0 |
0 |
if (system 'pkill --help &>/dev/null') { } |
|
339
|
0 |
0 |
if ($res != 0) |
|
344
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::WARN == 1 |
|
375
|
0 |
0 |
unless defined $params{'machinesfile'} |
|
377
|
0 |
0 |
defined $params{'machinesfile'} ? : |
|
385
|
0 |
0 |
if ($res) { } |
|
390
|
0 |
0 |
unless /\S/ |
|
391
|
0 |
0 |
if /#.*$/ |
|
393
|
0 |
0 |
if (defined $hosts{$_} and $hosts{$_} == 1) { } |
|
397
|
0 |
0 |
if (defined $params{'reboot'} and $params{'reboot'} == 1) { } |
|
398
|
0 |
0 |
unless defined rebootHost('host', "$_") |
|
405
|
0 |
0 |
if (defined $should_resize and defined $params{'reboot'} and $params{'reboot'} == 1) |
|
408
|
0 |
0 |
if defined $params{'hostsup'} |
|
409
|
0 |
0 |
if defined $params{'hostsdown'} |
|
416
|
0 |
0 |
unless /\S/ |
|
417
|
0 |
0 |
if /#.*$/ |
|
421
|
0 |
0 |
if defined $params{'hostsdown'} |
|
423
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::WARN == 1 |
|
424
|
0 |
0 |
if (defined $params{'reboot'} and $params{'reboot'} == 1) |
|
435
|
0 |
0 |
unless (keys %hosts) |
|
491
|
0 |
2 |
if $Parallel::Mpich::MPD::Common::DEBUG == 1 |
|
501
|
0 |
0 |
unless defined $params{'machinesfile'} |
|
505
|
0 |
0 |
if (defined $params{'machinesfile'} and -e $params{'machinesfile'}) { } |
|
509
|
0 |
0 |
if ($res) { } |
|
512
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::DEBUG == 1 |
|
516
|
0 |
0 |
unless /\S/ |
|
517
|
0 |
0 |
if /#.*$/ |
|
520
|
0 |
0 |
if (defined $hosts{$_} and $hosts{$_} == 1) { } |
|
522
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::DEBUG == 1 |
|
542
|
0 |
0 |
unless defined $alias |
|
543
|
0 |
0 |
if (system commandPath('mpdlistjobs') . qq[ 2>/dev/null|grep -qe "alias.*$alias"]) { } |
|
546
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::WARN == 1 |
|
569
|
0 |
0 |
if exists $params{'spawn'} |
|
575
|
0 |
0 |
if defined $params{'alias'} |
|
577
|
0 |
0 |
defined $params{'machinesfile'} ? : |
|
581
|
0 |
0 |
if defined $params{'user'} |
|
586
|
0 |
0 |
if (defined $params{'ncpu'} and "$inputfile" eq "$machinesfile") { } |
|
592
|
0 |
0 |
if $ENV{'LD_ASSUME_KERNEL'} |
|
594
|
0 |
0 |
unless (defined $params{'cmd'}) |
|
605
|
0 |
0 |
if defined $params{'params'} |
|
606
|
0 |
0 |
if defined $params{'spawn'} |
|
607
|
0 |
0 |
if defined $params{'stdout'} |
|
608
|
0 |
0 |
if defined $params{'stderr'} |
|
609
|
0 |
0 |
if defined $params{'pid'} |
|
612
|
0 |
0 |
if defined $params{'spawn'} and defined $params{'alias'} |
|
623
|
1 |
0 |
if (defined $hparams{'mpdlistjobs_contents'}) { } |
|
629
|
0 |
0 |
if $Parallel::Mpich::MPD::Common::DEBUG == 1 |
|
630
|
0 |
0 |
if ($res != 0) |
|
634
|
0 |
0 |
if ($stdout eq '') |
|
658
|
26 |
13 |
unless defined $criteria{$k} |
|
659
|
3 |
10 |
if (ref $criteria{$k} eq 'ARRAY') { } |
|
674
|
0 |
13 |
if defined $criteria{'reloadlist'} |
|
697
|
16 |
47 |
if (defined $j->jobid and $criteria{'jobid'}{$j->jobid} or defined $j->jobalias and $criteria{'jobalias'}{$j->jobalias} or defined $j->username and $criteria{'username'}{$j->username}) |
|
704
|
6 |
7 |
if ($criteria{'return'} and $criteria{'return'} eq 'getone') { } |
|
|
1 |
6 |
elsif ($criteria{'return'} and $criteria{'return'} eq 'host2pidlist') { } |
|
706
|
3 |
3 |
unless %retjobs |
|
709
|
0 |
3 |
if $Parallel::Mpich::MPD::Common::WARN |
|
711
|
2 |
1 |
if ($sz == 1) { } |
|
730
|
1 |
0 |
wantarray ? : |
|
732
|
3 |
3 |
wantarray ? : |
|
742
|
0 |
0 |
if (defined $params{'hosts'} and $jobret == 0) |
|
763
|
0 |
0 |
if (defined $params{'hosts'}) { } |
|
768
|
0 |
0 |
if defined $params{'pkill'} |
|
780
|
0 |
0 |
if $ret2 |