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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jun 10 15:26:27 2008
New Revision: 13124

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Build.pm
   Shipwright/trunk/share/bin/shipwright-builder

Log:
 r13227 at sunnavys-mb:  sunnavy | 2008-06-11 03:01:08 +0800
 fill not specified but mandatary flags


Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Tue Jun 10 15:26:27 2008
@@ -108,6 +108,15 @@
               Shipwright::Util::LoadFile(
                 File::Spec->catfile( 'shipwright', 'flags.yml' ) )
               || {};
+
+            # fill not specified but mandatary flags
+            if ( $flags->{__mandatary} ) {
+                for my $list ( values %{ $flags->{__mandatary} } ) {
+                    next unless @$list;
+                    next if grep { $self->flags->{$_} } @$list;
+                    $self->flags->{ $list->[0] }++;
+                }
+            }
         }
 
         # calculate the real order

Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Tue Jun 10 15:26:27 2008
@@ -97,6 +97,15 @@
 my $flags =
   ( YAML::Tiny->read( File::Spec->catfile( 'shipwright', 'flags.yml' ) ) )->[0];
 
+# fill not specified but mandatary flags
+if ( $flags->{__mandatary} ) {
+    for my $list ( values %{$flags->{__mandatary}} ) {
+        next unless @$list;
+        next if grep { $args{flags}{$_} } @$list;
+        $args{flags}{$list->[0]}++;
+    }
+}
+
 # calculate the real order
 if ( $args{only} ) {
     @$order = grep { $args{only}->{$_} } @$order;