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

parallel: --results uses stdout\t rather than stdout_ in file names.

Browse source
This commit is contained in:
Drew Frank 2012-10-05 16:33:31 -07:00
parent b170f88593
commit 141eb4d5ea
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/parallel
View file

@ -3215,13 +3215,13 @@ sub openresultsfile {
my $self = shift; my $self = shift;
my $args_as_filename = $self->{'commandline'}->args_as_filename(); my $args_as_filename = $self->{'commandline'}->args_as_filename();
my ($outfh,$errfh,$name); my ($outfh,$errfh,$name);
$name = $::opt_results."stdout_".$args_as_filename; $name = $::opt_results."stdout\t".$args_as_filename;
if(not open($outfh,"+>",$name)) { if(not open($outfh,"+>",$name)) {
::error("Cannot write to `$name'.\n"); ::error("Cannot write to `$name'.\n");
::wait_and_exit(255); ::wait_and_exit(255);
} }
$self->set_stdoutfilename($name); $self->set_stdoutfilename($name);
$name = $::opt_results."stderr_".$args_as_filename; $name = $::opt_results."stderr\t".$args_as_filename;
if(not open($errfh,"+>",$name)) { if(not open($errfh,"+>",$name)) {
::error("Cannot write to `$name'.\n"); ::error("Cannot write to `$name'.\n");
::wait_and_exit(255); ::wait_and_exit(255);