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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Jan 18 08:05:58 2009
New Revision: 17825

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

Log:
 r18916 at sunnavys-mb:  sunnavy | 2009-01-18 21:05:47 +0800
 tiny fix


Modified: Shipwright/trunk/lib/Shipwright/Script/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Build.pm	Sun Jan 18 08:05:58 2009
@@ -100,8 +100,7 @@
     $shipwright->backend->export( target => $shipwright->build->build_base );
 
     my $dists_dir = $shipwright->build->build_base;
-
-    mkdir 'dists' unless -e 'dists';
+    mkdir catdir( $dists_dir, 'dists' ) unless -e catdir( $dists_dir, 'dists' );
     for my $name ( keys %source ) {
         my $dir = catdir( $dists_dir, 'dists', $name );
         system("rm -rf $dir");