[Bps-public-commit] r13644 - in Shipwright/trunk: . lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun 27 02:21:39 2008
New Revision: 13644

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Build.pm
   Shipwright/trunk/lib/Shipwright/Script/Build.pm
   Shipwright/trunk/lib/Shipwright/Script/Flags.pm

Log:
 r13882 at sunnavys-mb:  sunnavy | 2008-06-27 14:11:23 +0800
 bug fixes


Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Fri Jun 27 02:21:39 2008
@@ -110,9 +110,9 @@
                 File::Spec->catfile( 'shipwright', 'flags.yml' ) )
               || {};
 
-            # fill not specified but mandatary flags
-            if ( $flags->{__mandatary} ) {
-                for my $list ( values %{ $flags->{__mandatary} } ) {
+            # fill not specified but mandatory flags
+            if ( $flags->{__mandatory} ) {
+                for my $list ( values %{ $flags->{__mandatory} } ) {
                     next unless @$list;
                     next if grep { $self->flags->{$_} } @$list;
                     $self->flags->{ $list->[0] }++;

Modified: Shipwright/trunk/lib/Shipwright/Script/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Build.pm	Fri Jun 27 02:21:39 2008
@@ -6,7 +6,7 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/build_base skip skip_test only_test
+    qw/build_base skip skip_test only_test install_base
       force log_file flags name perl only with/
 );
 

Modified: Shipwright/trunk/lib/Shipwright/Script/Flags.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Flags.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Flags.pm	Fri Jun 27 02:21:39 2008
@@ -38,7 +38,7 @@
     {
 
         # show without change
-        $self->_show_flags($flags);
+        $self->_show_flags($flags, $name);
         return;
     }