[Bps-public-commit] r18881 - Shipwright/trunk/share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Mar 19 22:14:01 2009
New Revision: 18881

Modified:
   Shipwright/trunk/share/bin/shipwright-builder

Log:
do not overwrite default_builder_options

Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Thu Mar 19 22:14:01 2009
@@ -19,16 +19,7 @@
 my $build_base = getcwd;
 my $inc_lib = catdir( $build_base, 'inc' );
 
-if ( @ARGV )  {
-    open my $fh, '>', '__default_builder_options'
-      or confess "can't write to __default_builder_options: $!";
-    print $fh '# one argument per line' . "\n";
-    print $fh $_, "\n" for @ARGV;
-    close $fh;
-}
-else {
-    @ARGV = get_default_builder_options();
-}
+ at ARGV = get_default_builder_options() unless @ARGV;
 
 my %args;