[Rt-commit] r13816 - in rt/3.8/trunk: .

[spang at bestpractical.com]

Author: spang
Date: Mon Jul  7 04:47:51 2008
New Revision: 13816

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/lib/RT/Test.pm

Log:
 r43691 at loki:  spang | 2008-07-07 09:12:22 +0100
 fix bug in get_relocateable_dir when dir is absolute


Modified: rt/3.8/trunk/lib/RT/Test.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Test.pm	(original)
+++ rt/3.8/trunk/lib/RT/Test.pm	Mon Jul  7 04:47:51 2008
@@ -614,7 +614,11 @@
 
 sub get_relocateable_dir {
     (my $volume, my $directories, my $file) = File::Spec->splitpath($0);
-    return File::Spec->catdir(File::Spec->curdir(), $directories, @_);
+    if (File::Spec->file_name_is_absolute($directories)) {
+        return $directories;
+    } else {
+        return File::Spec->catdir(File::Spec->curdir(), $directories, @_);
+    }
 }
 
 =head2 get_relocateable_file