tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-12-01 18:37:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel: Use File::Path::mkpath instead of home made version.

Browse source
This commit is contained in:
Ole Tange 2016-04-14 23:30:03 +02:00
parent 16e3e54dcf
commit 3738136bc4
2 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/parallel
View file

@ -3735,16 +3735,9 @@ sub __GENERIC_COMMON_FUNCTION__ {}
sub mkdir_or_die { sub mkdir_or_die {
# If dir is not executable: die # If dir is not executable: die
my $dir = shift; my $dir = shift;
my @dir_parts = split(m:/:,$dir); File::Path::mkpath($dir);
my ($ddir,$part);
while(defined ($part = shift @dir_parts)) {
$part eq "" and next;
$ddir .= "/".$part;
-d $ddir and next;
mkdir $ddir;
}
if(not -x $dir) { if(not -x $dir) {
::error("Cannot write to $dir: $!"); ::error("Cannot change into non-executable $dir: $!");
::wait_and_exit(255); ::wait_and_exit(255);
} }
} }

2
src/parallel.pod
View file

@ -1950,6 +1950,8 @@ one job at a time (i.e. B<-j1>), not buffer the output (i.e. B<-u>),
and it will open a tty for the job. When the job is done, the next job and it will open a tty for the job. When the job is done, the next job
will get the tty. will get the tty.
You can of course override B<-j1> and B<-u>.
=item B<--tag> =item B<--tag>