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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Jun 21 03:05:09 2008
New Revision: 13520

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

Log:
 r13606 at sunnavys-mb:  sunnavy | 2008-06-21 01:21:41 +0800
 fixed flags --delete error


Modified: Shipwright/trunk/lib/Shipwright/Script/Flags.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Flags.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Flags.pm	Sat Jun 21 03:05:09 2008
@@ -81,7 +81,7 @@
         my %seen;    # lookup table
         @seen{ @{ $self->delete } } = ();
 
-        $list = [ grep { exists $seen{$_} } @{ $flags->{$name} || [] } ];
+        $list = [ grep { !exists $seen{$_} } @{ $flags->{$name} || [] } ];
 
     }
     elsif ( defined $self->set ) {