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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Mar 22 05:13:16 2009
New Revision: 18910

Modified:
   Shipwright/trunk/lib/Shipwright/Script/Flags.pm
   Shipwright/trunk/t/71.script_cmds.t

Log:
string fix

Modified: Shipwright/trunk/lib/Shipwright/Script/Flags.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Flags.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Flags.pm	Sun Mar 22 05:13:16 2009
@@ -92,7 +92,7 @@
         else {
             $flags_info = '*nothing*';
         }
-        $self->log->fatal( "mandatory flags of $name is $flags_info" );
+        $self->log->fatal( "mandatory flags of $name are $flags_info" );
     }
     else {
         $self->log->fatal( 'set flags with success' ) if $changed;
@@ -102,7 +102,7 @@
         else {
             $flags_info = '*nothing*';
         }
-        $self->log->fatal( "flags of $name is $flags_info" );
+        $self->log->fatal( "flags of $name are $flags_info" );
     }
 
 }

Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Sun Mar 22 05:13:16 2009
@@ -239,32 +239,32 @@
         # set flags dir_configure to 'configure'
         [
             [ 'flags', 'dir_configure', ],
-            qr/flags of dir_configure is \*nothing\*/,
+            qr/flags of dir_configure are \*nothing\*/,
             'default is no flags',
         ],
         [
             [ 'flags', 'dir_configure', '--set', 'configure,foo', ],
-qr/set flags with success\s+flags of dir_configure is configure, foo/,
+qr/set flags with success\s+flags of dir_configure are configure, foo/,
             'set flags with success',
         ],
         [
             [ 'flags', 'dir_configure', '--add', 'bar', ],
-qr/set flags with success\s+flags of dir_configure is bar, configure, foo/,
+qr/set flags with success\s+flags of dir_configure are bar, configure, foo/,
             'add flags to dir_configure',
         ],
         [
             [ 'flags', 'dir_configure', '--delete', 'foo,bar', ],
-            qr/set flags with success\s+flags of dir_configure is configure/,
+            qr/set flags with success\s+flags of dir_configure are configure/,
             'delete flags to dir_configure',
         ],
         [
             [ 'flags', 'tgz_build', '--set', 'build' ],
-            qr/set flags with success\s+flags of tgz_build is build/,
+            qr/set flags with success\s+flags of tgz_build are build/,
             'set flags to tgz_build',
         ],
         [
             [ 'flags', 'man1', '--set', 'build', '--mandatory' ],
-qr/set mandatory flags with success\s+mandatory flags of man1 is build/,
+qr/set mandatory flags with success\s+mandatory flags of man1 are build/,
             'set mandatory flag man1',
         ],
         [