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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Sat Feb 21 06:43:15 EST 2009


Author: sunnavy
Date: Sat Feb 21 06:42:49 2009
New Revision: 18511

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

Log:
 r20026 at sunnavys-mb:  sunnavy | 2009-02-21 19:39:04 +0800
 added --inc arg for update so we can update inc


Modified: Shipwright/trunk/lib/Shipwright/Script/Update.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Update.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Update.pm	Sat Feb 21 06:42:49 2009
@@ -6,7 +6,7 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/all follow builder utility version only_sources as/
+    qw/all follow builder utility inc version only_sources as/
 );
 
 use Shipwright;
@@ -25,6 +25,7 @@
         'follow'       => 'follow',
         'builder'      => 'builder',
         'utility'      => 'utility',
+        'inc'          => 'inc',
         'version=s'    => 'version',
         'only-sources' => 'only_sources',
         'as=s'         => 'as',
@@ -45,6 +46,10 @@
         $shipwright->backend->update( path => '/bin/shipwright-utility' );
 
     }
+    elsif ( $self->inc ) {
+        $shipwright->backend->update( path => '/inc/' );
+
+    }
     else {
         $map    = $shipwright->backend->map    || {};
         $source = $shipwright->backend->source || {};
@@ -244,6 +249,7 @@
  --follow                     : update one dist with all its dependencies
  --builder                    : update bin/shipwright-builder
  --utility                    : update bin/shipwright-utility
+ --inc                        : update inc/
  --only-sources               : only update sources, no build scripts
  --as                         : the branch name
 



More information about the Bps-public-commit mailing list