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

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

View file

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

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
will get the tty.
You can of course override B<-j1> and B<-u>.
=item B<--tag>