[Bps-public-commit] r19044 - Shipwright/trunk/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Apr  5 01:22:37 2009
New Revision: 19044

Modified:
   Shipwright/trunk/lib/Shipwright/Script.pm

Log:
add env SHIPWRIGHT_REPOSITORY support so we do not need to write -r ... in each cmd all the time

Modified: Shipwright/trunk/lib/Shipwright/Script.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script.pm	Sun Apr  5 01:22:37 2009
@@ -52,6 +52,8 @@
     my $cmd = $self->SUPER::prepare(@_);
 
     unless ( ref $cmd eq 'Shipwright::Script::Help' ) {
+        $cmd->repository( $ENV{SHIPWRIGHT_REPOSITORY} )
+          if !$cmd->repository && $ENV{SHIPWRIGHT_REPOSITORY};
         if ( $cmd->repository ) {
             my $backend =
               Shipwright::Backend->new( repository => $cmd->repository );