From d9e2ebaf26d0f3dd5e0dc447820adeab93e5fad9 Mon Sep 17 00:00:00 2001
From: Guillaume Morin <gmorin@gnu.org>
Date: Sun, 20 Jan 2002 11:42:50 +0000
Subject: [PATCH] fixed bug when stow dir is /foo

---
 ChangeLog | 5 +++++
 stow.in   | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d39be8d..539eaf1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jan 20 12:41:39 2002  Guillaume Morin  <gmorin@gnu.org>
+
+    * stow.in: fixed a bug if the stow directory is /foo.
+      Bug spotted and fixed by Jim Radford <radford@blackbean.org>.
+
 Wed Jan  9 02:20:15 2002  Gaël Roualland  <gael.roualland@iname.com>
 
     * stow.in: added the '--ignore' and '--force' options.
diff --git a/stow.in b/stow.in
index ae20d6f..245d0a8 100644
--- a/stow.in
+++ b/stow.in
@@ -545,7 +545,9 @@ sub parent {
   local($path) = join('/', @_);
   local(@elts) = split(/\/+/, $path);
   pop(@elts);
-  join('/', @elts);
+  # if @_ = ('/foo')
+  # join('/',@elts) would be ''
+  join('/', @elts) || '/';
 }
 
 sub usage {