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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Nov 10 04:55:45 2008
New Revision: 16803

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

Log:
 r17689 at sunnavys-mb:  sunnavy | 2008-11-10 17:55:07 +0800
 a bit refactor


Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Mon Nov 10 04:55:45 2008
@@ -198,11 +198,10 @@
 
         $self->_wrapper() unless $^O =~ /MSWin/;
 
-        $self->log->info(
-            "install finished. the dists are at " . $self->install_base );
     }
 
     chdir $orig_cwd;
+    return 1;
 }
 
 # install one dist, the install methods are in scripts/distname/build

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:45 2008
@@ -94,7 +94,13 @@
             system("cp -r $source{$name} $dir");
         }
     }
-    $shipwright->build->run();
+    if ( $shipwright->build->run() ) {
+        print "install finished. the dists are at "
+          . $self->install_base . "\n";
+    }
+    else {
+        print "something bad happens\n";
+    }
 }
 
 1;