path: root/support
diff options
authorGravatar Francois Perrad <fperrad@gmail.com>2014-12-03 19:05:37 +0100
committerGravatar Thomas Petazzoni <thomas.petazzoni@free-electrons.com>2014-12-07 23:04:39 +0100
commit18033effada7b0fd1e946c44ea7d30f9ed4e32a6 (patch)
tree337d96fbebf82e472c9f1694af06a602be3fe6d0 /support
parent7b9d89fad0074ecf66ae685cbb7819ca98585525 (diff)
support/script/scancpan: fix corelist check
module could be removed of the core, so check if the module is currently in the core, but not if the module was once time included in the core. Signed-off-by: Francois Perrad <francois.perrad@gadz.org> Signed-off-by: Thomas Petazzoni <thomas.petazzoni@free-electrons.com>
Diffstat (limited to 'support')
1 files changed, 2 insertions, 2 deletions
diff --git a/support/scripts/scancpan b/support/scripts/scancpan
index 7ff647dcea..0eac1322bb 100755
--- a/support/scripts/scancpan
+++ b/support/scripts/scancpan
@@ -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};