Author: dagolden Date: Sun Sep 13 14:33:35 2009 New Revision: 13329 Modified: Module-Build/branches/inc-bundling/lib/Module/Build/Base.pm
Log: simplify inc::latest author mode check further Modified: Module-Build/branches/inc-bundling/lib/Module/Build/Base.pm ============================================================================== --- Module-Build/branches/inc-bundling/lib/Module/Build/Base.pm (original) +++ Module-Build/branches/inc-bundling/lib/Module/Build/Base.pm Sun Sep 13 14:33:35 2009 @@ -1179,7 +1179,7 @@ my $self = shift; my $bundle_inc = $self->{properties}{bundle_inc}; # We're in author mode if inc::latest is loaded, but not from cwd - return unless $INC{'inc/latest.pm'} && inc::latest->can('loaded_modules'); + return unless inc::latest->can('loaded_modules'); require ExtUtils::Installed; my $inst = ExtUtils::Installed->new; for my $mod ( inc::latest->loaded_modules ) { @@ -1282,7 +1282,7 @@ # configure_requires if not already set. If we're not in author mode # then configure_requires will have been satisfied, or we'll just # live with what we've bundled - if ( $INC{'inc/latest.pm'} && inc::latest->can('loaded_module') ) { + if ( inc::latest->can('loaded_module') ) { for my $mod ( inc::latest->loaded_modules ) { next if exists $p->{configure_requires}{$mod}; $self->_add_prereq('configure_requires', $mod, $mod->VERSION);