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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun  6 03:37:19 2008
New Revision: 12952

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

Log:
 r13040 at sunnavys-mb:  sunnavy | 2008-06-06 15:35:57 +0800
 added - as a valid flag char


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  6 03:37:19 2008
@@ -52,7 +52,7 @@
     }
 
     if ( defined $self->add ) {
-        $self->add( [ grep { /^\w+$/ } split /,\s*/, $self->add ] );
+        $self->add( [ grep { /^[-\w]+$/ } split /,\s*/, $self->add ] );
         $flags->{$name} = [ uniq @{ $self->add }, @{ $flags->{$name} || [] } ];
     }
     elsif ( defined $self->delete ) {
@@ -65,7 +65,7 @@
 
     }
     elsif ( defined $self->set ) {
-        $flags->{$name} = [ grep { /^\w+$/ } split /,\s*/, $self->set ];
+        $flags->{$name} = [ grep { /^[-\w]+$/ } split /,\s*/, $self->set ];
     }
 
     $shipwright->backend->flags($flags);