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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Tue Jul 1 10:55:43 EDT 2008


Author: sunnavy
Date: Tue Jul  1 10:55:40 2008
New Revision: 13711

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

Log:
 r13940 at sunnavys-mb:  sunnavy | 2008-06-28 10:41:50 +0800
 tiny change


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  1 10:55:40 2008
@@ -5,8 +5,7 @@
 use Carp;
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
-__PACKAGE__->mk_accessors(
-    qw/all follow builder utility version/);
+__PACKAGE__->mk_accessors(qw/all follow builder utility version/);
 
 use Shipwright;
 use File::Spec;
@@ -37,12 +36,10 @@
     $shipwright = Shipwright->new( repository => $self->repository, );
 
     if ( $self->builder ) {
-        $shipwright->backend->update(
-            path => File::Spec->catfile( 'bin', 'shipwright-builder' ) );
+        $shipwright->backend->update( path => '/bin/shipwright-builder' );
     }
     elsif ( $self->utility ) {
-        $shipwright->backend->update(
-            path => File::Spec->catfile( 'bin', 'shipwright-utility' ) );
+        $shipwright->backend->update( path => '/bin/shipwright-utility' );
 
     }
     else {
@@ -77,7 +74,7 @@
                     }
                 };
 
-                $find_deps->( $name );
+                $find_deps->($name);
                 @dists = keys %checked;
             }
             $self->_update($_) for @dists;



More information about the Bps-public-commit mailing list