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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun  6 05:41:47 2008
New Revision: 12957

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

Log:
 r13051 at sunnavys-mb:  sunnavy | 2008-06-06 17:31:12 +0800
 added noclean arg


Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Fri Jun  6 05:41:47 2008
@@ -18,7 +18,7 @@
 die "unknown option"
   unless GetOptions( \%args, 'install-base=s', 'perl=s', 'skip=s', 'flags=s',
     'skip-test', 'skip-test-except-final', 'only-test', 'force', 'clean',
-    'name=s', 'help', );
+    'name=s', 'help', 'noclean' );
 
 my $USAGE = <<'END'
 run: ./bin/shipwright-builder
@@ -58,6 +58,8 @@
 
 clean: clean the source
 
+noclean: don't clean before build
+
 END
   ;
 
@@ -112,11 +114,10 @@
     # for install
     open $log, '>', 'build.log' or die $!;
 
-    if ( -e '__need_clean' ) {
+    if ( -e '__need_clean' && ! $args{noclean} ) {
         print "seems it has been built before, need to clean first\n";
         print $log "seems it has been built before, need to clean first\n";
         system("$0 --clean") && die 'clean failed.';
-
     }
 
     # set clean flag again