[Bps-public-commit] r14425 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jul 23 04:09:26 2008
New Revision: 14425

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/SVK.pm
   Shipwright/trunk/lib/Shipwright/Source/SVN.pm

Log:
 r14889 at sunnavys-mb:  sunnavy | 2008-07-23 14:57:47 +0800
 do not update_url until at run stage


Modified: Shipwright/trunk/lib/Shipwright/Source/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/SVK.pm	Wed Jul 23 04:09:26 2008
@@ -16,8 +16,6 @@
     my $self  = $class->SUPER::new(@_);
 
     $self->name( $self->just_name( $self->source ) ) unless $self->name;
-    $self->_update_url( $self->name, 'svk:' . $self->source );
-
     return $self;
 }
 
@@ -28,6 +26,9 @@
 sub run {
     my $self = shift;
     $self->log->info( "prepare to run source: " . $self->source );
+
+    $self->_update_url( $self->name, 'svk:' . $self->source );
+
     $self->_run;
     my $s;
     if ( $self->is_compressed ) {

Modified: Shipwright/trunk/lib/Shipwright/Source/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/SVN.pm	Wed Jul 23 04:09:26 2008
@@ -16,8 +16,6 @@
     my $self  = $class->SUPER::new(@_);
 
     $self->name( $self->just_name( $self->source ) ) unless $self->name;
-    $self->_update_url( $self->name, 'svn:' . $self->source );
-
     return $self;
 }
 
@@ -28,6 +26,8 @@
 sub run {
     my $self = shift;
     $self->log->info( "prepare to run source: " . $self->source );
+    $self->_update_url( $self->name, 'svn:' . $self->source );
+
     $self->_run;
     my $s;
     if ( $self->is_compressed ) {