[Bps-public-commit] Shipwright branch, master, updated. 3800fef4fb27d8f7cce8cb39b1826e6d889eadd3

[? sunnavy]

The branch, master has been updated
       via  3800fef4fb27d8f7cce8cb39b1826e6d889eadd3 (commit)
      from  d72f810bd7a0dfade95df2a6f04ac35ed0d7480a (commit)

Summary of changes:
 lib/Shipwright/Script/Import.pm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 3800fef4fb27d8f7cce8cb39b1826e6d889eadd3
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Sat Jun 16 19:45:41 2012 +0800

    support perl dist format like perl-5.16.0

diff --git a/lib/Shipwright/Script/Import.pm b/lib/Shipwright/Script/Import.pm
index b875180..f7776bb 100644
--- a/lib/Shipwright/Script/Import.pm
+++ b/lib/Shipwright/Script/Import.pm
@@ -126,8 +126,8 @@ sub run {
         }
 
         for my $source (@sources) {
-            if ( $source =~ /^perl-[\d.]+(?:\.tar\.gz)?$/ ) {
-                $source = "http://www.cpan.org/src/$source";
+            if ( $source =~ /^(perl-[\d.]+)(?:\.tar\.gz)?$/ ) {
+                $source = "http://www.cpan.org/src/$1.tar.gz";
             }
             elsif ( $source eq 'perl' ) {
                 if ( $self->version ) {

-----------------------------------------------------------------------