[Bps-public-commit] r14847 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Aug  6 08:20:37 2008
New Revision: 14847

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/Import.pm

Log:
 r15371 at sunnavys-mb:  sunnavy | 2008-08-06 20:20:17 +0800
 tiny change


Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Wed Aug  6 08:20:37 2008
@@ -238,7 +238,7 @@
                         next;
                     }
 
-                    $s = File::Spec->catfile( $dir, $s );
+                    $s = File::Spec->catdir( $dir, $s );
 
                     my $script_dir;
                     if ( -e File::Spec->catdir( $dir, '__scripts', $dist ) ) {