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

parallel: Unlink should not happen with --files.

Browse source
This commit is contained in:
Ole Tange 2013-01-21 23:09:00 +01:00
parent 592a6482a8
commit 05e1cf9ef4
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/parallel
View file

@ -3850,10 +3850,11 @@ sub start {
my ($outfh,$errfh,$name); my ($outfh,$errfh,$name);
# To group we create temporary files for STDOUT and STDERR # To group we create temporary files for STDOUT and STDERR
# To avoid the cleanup unlink the files immediately (but keep them open) # To avoid the cleanup unlink the files immediately (but keep them open)
($outfh, $name) = ::tempfile(SUFFIX => ".par", UNLINK => 1); my $unlink = $opt::files ? 0 : 1;
($outfh, $name) = ::tempfile(SUFFIX => ".par", UNLINK => $unlink);
$job->set_stdoutfilename($name); $job->set_stdoutfilename($name);
$opt::files or unlink $name; $unlink and unlink $name;
($errfh, $name) = ::tempfile(SUFFIX => ".par", UNLINK => 1); ($errfh, $name) = ::tempfile(SUFFIX => ".par", UNLINK => $unlink);
unlink $name; unlink $name;
open OUT, '>&', $outfh or ::die_bug("Can't redirect STDOUT: $!"); open OUT, '>&', $outfh or ::die_bug("Can't redirect STDOUT: $!");