Index: lib/MTT/DoCommand.pm =================================================================== --- lib/MTT/DoCommand.pm (revision 1322) +++ lib/MTT/DoCommand.pm (working copy) @@ -359,6 +359,7 @@ } my $killed_status = undef; my $last_over = 0; + my $padb_output; while ($done > 0) { my $nfound = select($rout = $rin, undef, undef, $t); if (vec($rout, fileno(OUTread), 1) == 1) { @@ -410,6 +411,8 @@ my $timeout_email_recipient = $MTT::Globals::Values->{docommand_timeout_notify_email}; my $timeout_notify_timeout = $MTT::Globals::Values->{docommand_timeout_notify_timeout}; + $padb_output = `padb --config-option rmgr=mpirun --full-report=$pid`; + if (defined($timeout_sentinel_file)) { # Email someone, if an email address has been specified @@ -493,6 +496,9 @@ # Return an anonymous hash containing the relevant data $ret->{result_stdout} = join('', @out); + if ( defined $padb_output ) { + $ret->{result_stdout} .= "\n$padb_output"; + } $ret->{result_stderr} = join('', @err), if (!$merge_output); return $ret;