From a0adb0a1b138ce58a7154a3cf825068657e4dba5 Mon Sep 17 00:00:00 2001 From: Ole Tange Date: Thu, 18 Jun 2015 00:47:33 +0200 Subject: [PATCH] parallel: Show at which arg something unexplained failed. --- src/parallel | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/parallel b/src/parallel index e5755f4f..f098311c 100755 --- a/src/parallel +++ b/src/parallel @@ -2115,7 +2115,11 @@ sub init_run_jobs { # Count down the number of jobs to run for this SSHLogin. my $max = $sshlogin->max_jobs_running(); if($max > 1) { $max--; } else { - ::error("No more processes: cannot run a single job. Something is wrong."); + my @arg; + for my $record (@{$job->{'commandline'}->{'arg_list'}}) { + push @arg, map { $_->orig() } @$record; + } + ::error("No more processes: cannot run a single job. Something is wrong at @arg."); ::wait_and_exit(255); } $sshlogin->set_max_jobs_running($max);