From 3738136bc40cf2e7b1d2b2234688b914392dc4ab Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Thu, 14 Apr 2016 23:30:03 +0200
Subject: [PATCH] parallel: Use File::Path::mkpath instead of home made
 version.

---
 src/parallel     | 11 ++---------
 src/parallel.pod |  2 ++
 2 files changed, 4 insertions(+), 9 deletions(-)

diff --git a/src/parallel b/src/parallel
index cb49a54d..0e3983ba 100755
--- a/src/parallel
+++ b/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);
     }
 }
diff --git a/src/parallel.pod b/src/parallel.pod
index 83c5f4f5..b86a11a8 100644
--- a/src/parallel.pod
+++ b/src/parallel.pod
@@ -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>