[Bps-public-commit] r18552 - Shipwright/trunk/lib/Shipwright/Source

[jesse at bestpractical.com]

Author: jesse
Date: Mon Feb 23 21:08:51 2009
New Revision: 18552

Modified:
   Shipwright/trunk/lib/Shipwright/Source/Base.pm

Log:
Remainder if implementation for include-dual-lifed


Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Mon Feb 23 21:08:51 2009
@@ -14,6 +14,7 @@
 __PACKAGE__->mk_accessors(
     qw/source directory scripts_directory download_directory follow
       min_perl_version map_path skip map skip_recommends skip_all_recommends
+      include_dual_lifed
       keep_build_requires name log url_path version_path branches_path version/
 );
 
@@ -292,20 +293,15 @@
 
 #$module shouldn't be undefined, but it _indeed_ happens in reality sometimes
                 next unless $module;
-
                 # we don't want to require perl
                 if ( $module eq 'perl' ) {
                     delete $require->{$type}{$module};
                     next;
                 }
 
-                if (
-                    Module::CoreList->first_release( $module,
-                        $require->{$type}{$module}{version} )
-                    && Module::CoreList->first_release( $module,
-                        $require->{$type}{$module}{version} ) <=
-                    $self->min_perl_version
-                  )
+                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)
                 {
                     delete $require->{$type}{$module};
                     next;