[Bps-public-commit] r18443 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Feb 18 02:12:28 2009
New Revision: 18443

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/Import.pm

Log:
 r19937 at sunnavys-mb:  sunnavy | 2009-02-18 15:12:06 +0800
 numify min-perl-version


Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Wed Feb 18 02:12:28 2009
@@ -48,6 +48,11 @@
     my $source = shift;
     my $name   = shift;
     $self->name( $name ) if $name && ! $self->name;
+    if ( $self->min_perl_version ) {
+        require version;
+        my $version = version->new( $self->min_perl_version );
+        $self->min_perl_version( $version->numify );
+    }
 
     my $shipwright = Shipwright->new( repository => $self->repository, );