default path separator fallback

diff --git a/botm_common.pm b/botm_common.pm
index e3f4c839b77a046e4f3475664fe91f3f07e0eaad..1bdac0ccac244d64879d23b855800b825bf99880 100644 (file)
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -25,7 +25,7 @@ use Encode ('encode', 'decode');
 
 use Exporter;
 
-our $VERSION     = '1.0.24';
+our $VERSION     = '1.0.25';
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
@@ -44,9 +44,12 @@ our @EXPORT_OK   = (
 # path stuff
 
 # join_path() builds a path (or url) from individual segments
-# that there will be 1 path separator brtween (and not 2 or 0).
+# that there will be 1 path separator between (and not 2 or 0).
 sub join_path {
        (my $joiner, my @segments) = @_;
+       if ($joiner eq '') {
+               $joiner = '/';
+       }
        
        my $path = '';
        foreach my $segment (@segments) {