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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Aug  3 02:58:18 2008
New Revision: 14728

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

Log:
 r15229 at sunnavys-mb:  sunnavy | 2008-08-03 11:34:24 +0800
 added maintain --update-refs cmd


Modified: Shipwright/trunk/lib/Shipwright/Script/Maintain.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Maintain.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Maintain.pm	Sun Aug  3 02:58:18 2008
@@ -6,7 +6,7 @@
 
 use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
 __PACKAGE__->mk_accessors(
-    qw/update_order keep_recommends
+    qw/update_order keep_recommends update_refs
       keep_build_requires keep_requires for_dists/
 );
 
@@ -15,6 +15,7 @@
 sub options {
     (
         'update-order'          => 'update_order',
+        'update-refs'           => 'update_refs',
         'keep-recommends=s'     => 'keep_recommends',
         'keep-requires=s'       => 'keep_requires',
         'keep-build-requires=s' => 'keep_build_requires',
@@ -47,6 +48,11 @@
         );
         print "updated order with success\n";
     }
+
+    if ( $self->update_refs ) {
+        $shipwright->backend->update_refs;
+        print "updated refs with success\n";
+    }
 }
 
 1;
@@ -68,4 +74,5 @@
                                 (info, debug, warn, error, or fatal)
  --log-file FILENAME          : specify the log file
  --update-order               : update the build order
+ --update-refs                : update refs( times a dist shows in all the require.yml )