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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jun  4 10:40:53 2008
New Revision: 12863

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

Log:
 r12945 at sunnavys-mb:  sunnavy | 2008-06-04 22:40:27 +0800
 fixed delete bug when cleaning flags


Modified: Shipwright/trunk/lib/Shipwright/Script/Delete.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Delete.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Delete.pm	Wed Jun  4 10:40:53 2008
@@ -78,8 +78,8 @@
     }
 
     my $flags = $shipwright->backend->flags;
-    for my $flag ( keys %$flags ) {
-        @{ $flags->{$flag} } = grep { $_ ne $name } @{ $flags->{$flag} };
+    for ( keys %$flags ) {
+        delete $flags->{$_} if $_ eq $name;
     }
 
     $shipwright->backend->version($version);