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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jul 22 09:17:18 2008
New Revision: 14375

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

Log:
 r14832 at sunnavys-mb:  sunnavy | 2008-07-22 21:16:45 +0800
 @dists has main dist already


Modified: Shipwright/trunk/lib/Shipwright/Script/Update.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Update.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Update.pm	Tue Jul 22 09:17:18 2008
@@ -62,8 +62,7 @@
                 my $find_deps;
                 $find_deps = sub {
                     my $name = shift;
-
-                    return if $checked{$name}++;    # we've checked this $name
+                    return if $checked{$name}++;
 
                     my ($require) =
                       $shipwright->backend->requires( name => $name );
@@ -77,8 +76,14 @@
                 $find_deps->($name);
                 @dists = keys %checked;
             }
-            $self->_update($_) for @dists;
-            $self->_update( $name, $self->version );
+            for ( @dists ) {
+                if ( $_ eq $name ) {
+                    $self->_update( $_, $self->version );
+                }
+                else {
+                    $self->_update( $_ );
+                }
+            }
         }
     }