Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (16 sloc) 652 Bytes
use strict;
my $module = shift || die;
my $core = module_is_supplied_with_perl_core( $module );
print $core, "\n";
sub module_is_supplied_with_perl_core {
my $name = shift;
my $ver = shift || $];
### check Module::CoreList to see if it's a core package
require Module::CoreList;
### Address #41157: Module::module_is_supplied_with_perl_core()
### broken for perl 5.10: Module::CoreList's version key for the
### hash has a different number of trailing zero than $] aka
### $PERL_VERSION.
my $core = $Module::CoreList::version{ 0+$ver }->{ $name };
return $core;
}