Преглед на файлове

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>
Francois Perrad преди 10 години
родител
ревизия
18033effad
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      support/scripts/scancpan

+ 2 - 2
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};