From 39526ff1fef7d50d353f44640a36ace0f9bcff70 Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Wed, 22 Dec 2010 10:21:58 +0100
Subject: [PATCH] sem: Problem if ~/.parallel does not exist. Fixed.

---
 doc/FUTURE_IDEAS | 2 ++
 src/parallel     | 4 +++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/doc/FUTURE_IDEAS b/doc/FUTURE_IDEAS
index 8f238c0a..c25e1316 100644
--- a/doc/FUTURE_IDEAS
+++ b/doc/FUTURE_IDEAS
@@ -1,3 +1,5 @@
+Testsuite: sem without ~/.parallel
+
 cleanup of transferred files in workdir fixed.
 -T implemented as ssh/rsync sometimes hang due to getting a tty.
 
diff --git a/src/parallel b/src/parallel
index 9b812842..2335a652 100755
--- a/src/parallel
+++ b/src/parallel
@@ -3465,7 +3465,9 @@ sub new {
     my $count = shift;
     $id=~s/([^-_a-z0-9])/unpack("H*",$1)/ige; # Convert non-word chars to hex
     $id="id-".$id; # To distinguish it from a process id
-    my $parallel_locks = $ENV{'HOME'}."/.parallel/semaphores";
+    my $parallel_dir = $ENV{'HOME'}."/.parallel";
+    -d $parallel_dir or mkdir $parallel_dir;
+    my $parallel_locks = $parallel_dir."/semaphores";
     -d $parallel_locks or mkdir $parallel_locks;
     my $lockdir = "$parallel_locks/$id";
     my $lockfile = $lockdir.".lock";