|
@@ -569,8 +569,8 @@ sub fetch {
|
|
|
next if $modname eq q{perl};
|
|
|
next if $modname =~ m|^Alien|;
|
|
|
next if $modname =~ m|^Win32|;
|
|
|
- next if !$test && $modname =~ m|^Test|;
|
|
|
- next if Module::CoreList::first_release( $modname );
|
|
|
+ next if !$test && $modname =~ m|^Test|;
|
|
|
+ next if Module::CoreList::is_core( $modname, undef, $] );
|
|
|
# we could use the host Module::CoreList data, because host perl and
|
|
|
# target perl have the same major version
|
|
|
next if ${$dep}{phase} eq q{develop};
|