From b2d16ed7383a4c1d328f009091165c93d667edcb Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Fri, 6 Jan 2017 11:23:35 +0000
Subject: [PATCH] Allow '0' to appear as a path fragment

---
 Webperl/Utils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Webperl/Utils.pm b/Webperl/Utils.pm
index 394d4da..1728fe6 100644
--- a/Webperl/Utils.pm
+++ b/Webperl/Utils.pm
@@ -67,7 +67,7 @@ sub path_join {
         $bit =~ s|^/*||; $bit =~ s|/*$||;
 
         # If the fragment was nothing more than slashes, ignore it
-        next unless($bit);
+        next unless($bit =~ /\S/);
 
         # Store for joining
         push(@parts, $bit);