[Bps-public-commit] r12097 - in Shipwright/trunk/lib/Shipwright: Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May  6 08:02:05 2008
New Revision: 12097

Modified:
   Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
   Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
   Shipwright/trunk/lib/Shipwright/Source/Directory.pm

Log:
details improvements

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	Tue May  6 08:02:05 2008
@@ -546,7 +546,7 @@
 
     croak "need dist arg" unless $args{dist};
 
-    if ($args{version}) {
+    if ( exists $args{version} ) {
         my $dir = tempdir( CLEANUP => 1 );
         my $file = File::Spec->catfile( $dir, 'version.yml' );
 

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Tue May  6 08:02:05 2008
@@ -555,7 +555,7 @@
 
     croak "need dist arg" unless $args{dist};
 
-    if ($args{version}) {
+    if ( exists $args{version} ) {
         my $dir = tempdir( CLEANUP => 1 );
         my $file = File::Spec->catfile( $dir, 'version.yml' );
 

Modified: Shipwright/trunk/lib/Shipwright/Source/Directory.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Directory.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Directory.pm	Tue May  6 08:02:05 2008
@@ -29,7 +29,8 @@
     $self->log->info(
         'run source ' . ( $self->name || $self->path ) . ': ' . $self->source );
 
-    $self->_update_version( $self->name, $self->version );
+    $self->_update_version( $self->name || $self->just_name( $self->path ),
+        $self->version );
 
     $self->_update_url( $self->name || $self->just_name( $self->path ),
         $self->source ) unless $self->{_no_update_url};