[Bps-public-commit] Shipwright branch, master, updated. 0070bfe656525bfe9028c51f543fb3170aa5b968

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  0070bfe656525bfe9028c51f543fb3170aa5b968 (commit)
      from  139b41188989101e7a30cbb5592ee6b9dbc1ba20 (commit)

Summary of changes:
 lib/Shipwright/Source/Base.pm |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 0070bfe656525bfe9028c51f543fb3170aa5b968
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Mar 11 22:18:37 2010 +0800

    handle version string containing > or >=: just trim them

diff --git a/lib/Shipwright/Source/Base.pm b/lib/Shipwright/Source/Base.pm
index 59b7b58..8885ac7 100644
--- a/lib/Shipwright/Source/Base.pm
+++ b/lib/Shipwright/Source/Base.pm
@@ -407,9 +407,11 @@ EOF
                     next;
                 }
 
+                my $version = $require->{$type}{$module}{version};
+                $version =~ s!^\D+!!; # some may contain '>' or '>=' 
                 if ( !$self->include_dual_lifed 
-                    && Module::CoreList->first_release( $module, $require->{$type}{$module}{version} )
-                    && Module::CoreList->first_release( $module, $require->{$type}{$module}{version} ) <= $self->min_perl_version)
+                    && Module::CoreList->first_release( $module, $version )
+                    && Module::CoreList->first_release( $module, $version ) <= $self->min_perl_version)
                 {
                     $self->log->info("$module is skipped becasue it's in core");
                     delete $require->{$type}{$module};

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