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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu May 15 06:03:42 EDT 2008


Author: sunnavy
Date: Thu May 15 06:03:42 2008
New Revision: 12328

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/Compressed.pm
   Shipwright/trunk/lib/Shipwright/Source/Directory.pm
   Shipwright/trunk/lib/Shipwright/Source/FTP.pm
   Shipwright/trunk/lib/Shipwright/Source/HTTP.pm
   Shipwright/trunk/lib/Shipwright/Source/SVK.pm
   Shipwright/trunk/lib/Shipwright/Source/SVN.pm

Log:
 r12367 at sunnavys-mb:  sunnavy | 2008-05-15 16:57:01 +0800
 values in source.yml are of type:schema format


Modified: Shipwright/trunk/lib/Shipwright/Source/Compressed.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Compressed.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Compressed.pm	Thu May 15 06:03:42 2008
@@ -20,7 +20,7 @@
 
     $self->_update_version( $self->name, $self->version );
 
-    $self->_update_url( $self->name, $self->source )
+    $self->_update_url( $self->name, 'file:' . $self->source )
       unless $self->{_no_update_url};
 
     my $ret = $self->SUPER::run(@_);

Modified: Shipwright/trunk/lib/Shipwright/Source/Directory.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Directory.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Directory.pm	Thu May 15 06:03:42 2008
@@ -33,7 +33,7 @@
         $self->version );
 
     $self->_update_url( $self->name || $self->just_name( $self->path ),
-        $self->source ) unless $self->{_no_update_url};
+        'directory:' . $self->source ) unless $self->{_no_update_url};
 
     $self->SUPER::run(@_);
     $self->_follow(

Modified: Shipwright/trunk/lib/Shipwright/Source/FTP.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/FTP.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/FTP.pm	Thu May 15 06:03:42 2008
@@ -32,7 +32,7 @@
     my $file;
     if ( $source =~ m{.*/(.+\.(tar\.gz|tgz|tar\.bz2))$} ) {
         $file = $1;
-        $self->_update_url( $self->just_name($file), $source );
+        $self->_update_url( $self->just_name($file), 'ftp:' . $source );
         my $src_dir = $self->download_directory;
         mkdir $src_dir unless -e $src_dir;
         $self->source( File::Spec->catfile( $src_dir, $file ) );

Modified: Shipwright/trunk/lib/Shipwright/Source/HTTP.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/HTTP.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/HTTP.pm	Thu May 15 06:03:42 2008
@@ -34,7 +34,7 @@
     my $file;
     if ( $source =~ m{.*/(.+\.(tar\.gz|tgz|tar\.bz2))$} ) {
         $file = $1;
-        $self->_update_url( $self->just_name($file), $source );
+        $self->_update_url( $self->just_name($file), 'http:' . $source );
 
         my $src_dir = $self->download_directory;
         mkdir $src_dir unless -e $src_dir;

Modified: Shipwright/trunk/lib/Shipwright/Source/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/SVK.pm	Thu May 15 06:03:42 2008
@@ -16,7 +16,7 @@
     my $self  = $class->SUPER::new(@_);
 
     $self->name( $self->just_name( $self->source ) ) unless $self->name;
-    $self->_update_url( $self->name, $self->source );
+    $self->_update_url( $self->name, 'svk:' . $self->source );
 
     return $self;
 }

Modified: Shipwright/trunk/lib/Shipwright/Source/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/SVN.pm	Thu May 15 06:03:42 2008
@@ -16,7 +16,7 @@
     my $self  = $class->SUPER::new(@_);
 
     $self->name( $self->just_name( $self->source ) ) unless $self->name;
-    $self->_update_url( $self->name, $self->source );
+    $self->_update_url( $self->name, 'svn:' . $self->source );
 
     return $self;
 }



More information about the Bps-public-commit mailing list