[Bps-public-commit] r12863 - in Shipwright/trunk: lib/Shipwright/Script
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Wed Jun 4 10:40:55 EDT 2008
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);
More information about the Bps-public-commit
mailing list