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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Nov 10 04:55:24 2008
New Revision: 16802

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

Log:
 r17688 at sunnavys-mb:  sunnavy | 2008-11-10 17:48:50 +0800
 tiny change


Modified: Shipwright/trunk/lib/Shipwright/Script/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Build.pm	Mon Nov 10 04:55:24 2008
@@ -87,10 +87,12 @@
     $shipwright->backend->export( target => $shipwright->build->build_base );
 
     my $dists_dir = $shipwright->build->build_base;
-    for my $name ( keys %source ) {
-        my $dir = catdir( $dists_dir, 'dists', $name );
-        system("rm -rf $dir");
-        system("cp -r $source{$name} $dir");
+    if ( $shipwright->backend->has_branch_support ) {
+        for my $name ( keys %source ) {
+            my $dir = catdir( $dists_dir, 'dists', $name );
+            system("rm -rf $dir");
+            system("cp -r $source{$name} $dir");
+        }
     }
     $shipwright->build->run();
 }