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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May 15 07:41:13 2008
New Revision: 12343

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

Log:
tiny fix

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:41:13 2008
@@ -108,8 +108,9 @@
             LocalLibPath LocalLexiconPath LocalPluginPath MasonComponentRoot
             MasonLocalComponentRoot MasonDataDir MasonSessionDir/ ) {
         no strict 'refs';
+        # just change relative ones
         $$path = File::Spec->catfile( $BasePath, $$path )
-          unless $$path =~ m{^/};    # just change relative ones
+          unless File::Spec->file_name_is_absolute( $$path );
     }
 }