Item8483: Force trailing separator for root path, windows and linux w…

…ere inconsistent in File::Spec operation git-svn-id: http://svn.foswiki.org/branches/Release01x00@6251 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Feb 8, 2010 · e0e5882 · e0e5882
1 parent c620e08
commit e0e5882
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/core/lib/Foswiki/Configure/UI.pm b/core/lib/Foswiki/Configure/UI.pm
@@ -28,7 +28,9 @@ sub new {
     $this->{bin} = $1;
     my @root = File::Spec->splitdir( $this->{bin} );
     pop(@root);
-    $this->{root} = File::Spec->catfile( @root, '' );
+    # SMELL: Force a trailing separator - Linux and Windows are inconsistent
+    $this->{root} = File::Spec->catfile( @root, 'x' );
+    chop $this->{root};
 
     return $this;
 }