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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jan 16 11:52:30 2009
New Revision: 17793

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

Log:
 r18837 at sunnavys-mb:  sunnavy | 2009-01-17 00:42:20 +0800
 set name and version for dir source


Modified: Shipwright/trunk/lib/Shipwright/Source/Directory.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Directory.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Directory.pm	Fri Jan 16 11:52:30 2009
@@ -29,11 +29,13 @@
     $self->log->info(
         'run source ' . ( $self->name || $self->path ) . ': ' . $self->source );
 
-    $self->_update_version( $self->name || $self->just_name( $self->path ),
-        $self->version );
+    $self->name( $self->just_name( $self->path ) )       unless $self->name;
+    $self->version( $self->just_version( $self->path ) ) unless $self->version;
+    $self->log->info( 'run source ' . $self->name . ': ' . $self->source );
 
-    $self->_update_url( $self->name || $self->just_name( $self->path ),
-        'directory:' . $self->source )
+    $self->_update_version( $self->name, $self->version );
+
+    $self->_update_url( $self->name, 'directory:' . $self->source )
       unless $self->{_no_update_url};
 
     my $newer = $self->_cmd;    # if we really get something new