diff -up Module-CoreList/corelist.cve Module-CoreList/corelist

--- Module-CoreList/corelist.cve	2016-02-05 16:26:05.000000000 +0100

+++ Module-CoreList/corelist	2016-08-05 09:16:43.129306210 +0200

@@ -130,6 +130,7 @@ requested perl versions.

 =cut

+BEGIN { pop @INC if $INC[-1] eq '.' }

 use Module::CoreList;

 use Getopt::Long qw(:config no_ignore_case);

 use Pod::Usage;