From e7db8097f30e35c07838f74aa3f84ebd80fa571e Mon Sep 17 00:00:00 2001
From: Guillaume Morin <gmorin@gnu.org>
Date: Wed, 2 Jan 2002 20:01:40 +0000
Subject: [PATCH] JoinPaths bug fixed

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

diff --git a/ChangeLog b/ChangeLog
index 43cfbbd..e997b27 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Wed Jan 02 20:58:05 2002  Guillaume Morin  <gmorin@gnu.org>
+
+    * stow.in: fixed JoinPaths so that subdir called "0" are
+      correctly pushed. Thanks a lot to Gergely Nagy
+	  <algernon@bonehunter.rulez.org> who patiently helped me to chase 
+	  this bug.
+
 Sun Dec 30 21:58:25 2001  Guillaume Morin  <gmorin@gnu.org>
 
     * stow.in: fixed a bug introduced by previous changes when
diff --git a/stow.in b/stow.in
index 28a0650..1236058 100644
--- a/stow.in
+++ b/stow.in
@@ -181,7 +181,7 @@ sub JoinPaths {
   foreach $x (@_) {
     @parts = split(/\/+/, $x);
     foreach $y (@parts) {
-      push(@paths, $y) if $y;
+      push(@paths, $y) if ($y ne "");
     }
   }
   $result .= join('/', @paths);