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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May 15 07:49:51 2008
New Revision: 12344

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

Log:
 r12402 at sunnavys-mb:  sunnavy | 2008-05-15 19:34:53 +0800
 two 'http:' or 'ftp:' seems so odd. don't need that actually, since only one is so unambiguous


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 07:49:51 2008
@@ -32,7 +32,7 @@
     my $file;
     if ( $source =~ m{.*/(.+\.(tar\.gz|tgz|tar\.bz2))$} ) {
         $file = $1;
-        $self->_update_url( $self->just_name($file), 'ftp:' . $source );
+        $self->_update_url( $self->just_name($file), $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 07:49:51 2008
@@ -34,7 +34,7 @@
     my $file;
     if ( $source =~ m{.*/(.+\.(tar\.gz|tgz|tar\.bz2))$} ) {
         $file = $1;
-        $self->_update_url( $self->just_name($file), 'http:' . $source );
+        $self->_update_url( $self->just_name($file), $source );
 
         my $src_dir = $self->download_directory;
         mkdir $src_dir unless -e $src_dir;