use vars qw/$VERSION %released %version %families %upstream
%bug_tracker %deprecated %delta/;
use Module::CoreList::TieHashDelta;
-$VERSION = '3.05';
+$VERSION = '3.06';
my $dumpinc = 0;
sub import {
my ($module_version, $perl_version);
$module_version = shift if @_ > 0;
- $perl_version = @_ > 0 ? shift : $^V;
+ $perl_version = @_ > 0 ? shift : $];
my $first_release = first_release($module);
You can optionally specify a minimum version of the module,
and can also specify a version of Perl.
If a version of Perl isn't specified,
-C<is_core()> will use the version of Perl that is running (ie C<$^V>).
+C<is_core()> will use the numeric version of Perl that is running (ie C<$]>).
If you want to specify the version of Perl, but don't care about
the version of the module, pass C<undef> for the module version:
#!perl -w
use strict;
use Module::CoreList;
-use Test::More tests => 33;
+use Test::More tests => 34;
BEGIN { require_ok('Module::CoreList'); }
+# Check default perl
+
+ok(Module::CoreList::is_core('IO::File', $Module::CoreList::version{$]}{'IO::File'}), "is_core is self-consistent");
+
ok(!Module::CoreList::is_core('Module::Path'), 'Module::Path has never been in core');
ok(!Module::CoreList::is_core('Module::Path', undef, '5.016003'), 'Module::Path has never been in core');
ok(!Module::CoreList::is_core('Module::Path', undef), 'Module::Path has never been in core');