[Rt-commit] r12342 - rt/branches/3.8-TESTING/lib

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May 15 07:30:43 2008
New Revision: 12342

Modified:
   rt/branches/3.8-TESTING/lib/RT.pm.in

Log:
catdir seems better

Modified: rt/branches/3.8-TESTING/lib/RT.pm.in
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT.pm.in	(original)
+++ rt/branches/3.8-TESTING/lib/RT.pm.in	Thu May 15 07:30:43 2008
@@ -101,7 +101,7 @@
        # is not always absolute
         $BasePath =
           File::Spec->rel2abs(
-            File::Spec->catfile( $pm_path, File::Spec->updir ) );
+            File::Spec->catdir( $pm_path, File::Spec->updir ) );
     }
 
     for my $path ( qw/EtcPath BinPath SbinPath VarPath LocalPath LocalEtcPath