mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-11-25 23:47:53 +00:00
parallel: Use File::Path::mkpath instead of home made version.
This commit is contained in:
parent
16e3e54dcf
commit
3738136bc4
11
src/parallel
11
src/parallel
|
@ -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);
|
||||
}
|
||||
}
|
||||
|
|
|
@ -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>
|
||||
|
||||
|
|
Loading…
Reference in a new issue