tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-22 22:17:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Bugfix: sprintf used %d with no matching argument

Browse source
This commit is contained in:
Ole Tange 2010-10-31 03:11:18 +01:00
parent f085a37a40
commit 0f094ba5b2
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/parallel
View file

@ -153,6 +153,10 @@ files. The arguments can be accessed in the command as B<{1}>
B<{6}> will refer to the line with the same line number from the 6th B<{6}> will refer to the line with the same line number from the 6th
file. file.
Example: Print the number on the opposing sides of a six sided die.
B<parallel -a <(seq 6) -a <(seq 6 -1 1) echo>
=item B<--arg-file-sep> I<sep-str> (beta testing) =item B<--arg-file-sep> I<sep-str> (beta testing)
@ -3887,7 +3891,7 @@ sub progress {
$header = "Computer:jobs completed"; $header = "Computer:jobs completed";
$status = $eta . $status = $eta .
join(" ",map join(" ",map
{ sprintf("%s:%d/%d", { sprintf("%s:%d",
$sshlogin{$_}, $sshlogin{$_},
($Global::host{$_}{'completed'}||0)) } ($Global::host{$_}{'completed'}||0)) }
@workers); @workers);
@ -3897,7 +3901,7 @@ sub progress {
$header = "Computer:jobs completed"; $header = "Computer:jobs completed";
$status = $eta . $status = $eta .
join(" ",map join(" ",map
{ sprintf("%s:%d/%d", { sprintf("%s:%d",
$workerno{$_}, $workerno{$_},
($Global::host{$_}{'completed'}||0)) } ($Global::host{$_}{'completed'}||0)) }
@workers); @workers);
@ -4396,6 +4400,8 @@ sub read_sshloginfile {
open(IN, $file) || die "Cannot open $file"; open(IN, $file) || die "Cannot open $file";
while(<IN>) { while(<IN>) {
chomp; chomp;
/^\s*#/ and next;
/^\s*$/ and next;
push @Global::sshlogin, $_; push @Global::sshlogin, $_;
} }
close IN; close IN;