[Bps-public-commit] r13198 - in Shipwright/trunk: share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jun 12 05:11:54 2008
New Revision: 13198

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/share/bin/shipwright-builder

Log:
 r13291 at sunnavys-mb:  sunnavy | 2008-06-12 17:10:31 +0800
 tidy builder


Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Thu Jun 12 05:11:54 2008
@@ -134,7 +134,7 @@
 elsif ( $args{'clean'} ) {
     open $log, '>', 'clean.log' or die $!;
 
-    system( 'rm -rf tmp_dists' ) && die "rm tmp_dists failed\n";
+    system('rm -rf tmp_dists') && die "rm tmp_dists failed\n";
 
     print $log "removed tmp_dists";
 
@@ -152,7 +152,7 @@
     # for install
     open $log, '>', 'build.log' or die $!;
 
-    process_tmp_dists() if keys %{$args{with}};
+    process_tmp_dists() if keys %{ $args{with} };
 
     if ( -e '__need_clean' && !$args{noclean} ) {
         print "seems it has been built before, need to clean first\n";
@@ -537,10 +537,10 @@
 sub process_tmp_dists {
     mkdir 'tmp_dists';
 
-    for my $name ( keys %{$args{with}} ) {
+    for my $name ( keys %{ $args{with} } ) {
         my $cmd = cmd( $name, $args{with}{$name} );
-        if ( $cmd ) {
-            system( $cmd ) && die "run $cmd with failure";
+        if ($cmd) {
+            system($cmd) && die "run $cmd with failure";
         }
     }
 }