[Bps-public-commit] r12952 - in Shipwright/trunk: lib/Shipwright/Script
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Fri Jun 6 03:37:19 EDT 2008
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);
More information about the Bps-public-commit
mailing list