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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Mar 19 09:38:40 2009
New Revision: 18851

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

Log:
tweak the default_options stuff for builder

Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Thu Mar 19 09:38:40 2009
@@ -20,13 +20,14 @@
 my $inc_lib = catdir( $build_base, 'inc' );
 
 if ( @ARGV )  {
-    open my $fh, '>', '__default_option'
-      or confess "can't write to __default_option: $!";
+    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_option();
+    @ARGV = get_default_builder_options();
 }
 
 my %args;
@@ -691,11 +692,13 @@
     }
 }
 
-sub get_default_option {
+sub get_default_builder_options {
     my @argv;
-    if ( open my $fh, '<', '__default_option' ) {
+    if ( open my $fh, '<', '__default_builder_options' ) {
         while( <$fh> ) {
             chomp;
+            next if /^\s*#/;
+            next unless /\S/;
             push @argv, $_;
         }
         close $fh;