[Bps-public-commit] Shipwright branch, master, updated. 59ecab2cac2225db9a6c67ab9fb1ca49485f8b3d

[? sunnavy]

The branch, master has been updated
       via  59ecab2cac2225db9a6c67ab9fb1ca49485f8b3d (commit)
      from  d92a5f453314aca8ea6ef041b0c8c36807b06f09 (commit)

Summary of changes:
 lib/Shipwright/Script/Import.pm |   16 ++++++++++++++++
 1 files changed, 16 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 59ecab2cac2225db9a6c67ab9fb1ca49485f8b3d
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Jun 6 16:29:34 2011 +0800

    treat perl specially

diff --git a/lib/Shipwright/Script/Import.pm b/lib/Shipwright/Script/Import.pm
index e91884d..1b3d28e 100644
--- a/lib/Shipwright/Script/Import.pm
+++ b/lib/Shipwright/Script/Import.pm
@@ -126,6 +126,22 @@ sub run {
         }
 
         for my $source (@sources) {
+            if ( $source =~ /perl-\d+/ ) {
+                $source = "http://www.cpan.org/src/$source";
+            }
+            elsif ( $source eq 'perl' ) {
+                if ( $self->version ) {
+                    $source =
+                        "http://www.cpan.org/src/perl-"
+                      . $self->version
+                      . '.tar.gz';
+                }
+                else {
+                    confess_or_die
+                      "unknown perl version, please specify --version";
+                }
+            }
+
             my $shipwright = Shipwright->new(
                 repository              => $self->repository,
                 source                  => $source,

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