r28437 - /trunk/dh-make-perl/lib/DhMakePerl.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sat Dec 20 23:24:04 UTC 2008
Author: dmn
Date: Sat Dec 20 23:24:02 2008
New Revision: 28437
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28437
Log:
is_core_module rewritten with $Config{version}
use qv() to get cannonical version representation that also matches
what Module::CoreList calls 'version'
Modified:
trunk/dh-make-perl/lib/DhMakePerl.pm
Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=28437&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Dec 20 23:24:02 2008
@@ -33,6 +33,7 @@
=cut
use AptPkg::Config ();
+use Config qw( %Config );
use CPAN ();
use Cwd qw( getcwd );
use Debian::AptContents ();
@@ -53,6 +54,7 @@
use User::pwent ();
use WWW::Mechanize ();
use YAML ();
+use version qw( qv );
# TODO:
@@ -308,11 +310,13 @@
sub is_core_module {
my ( $self, $module ) = @_;
- my $core = $Module::CoreList::version{$]}
- || $Module::CoreList::version{$]+0};
+ my $perl_version = qv( $Config{version} )->numify + 0;
+
+ my $core = $Module::CoreList::version{$perl_version};
$core
- or die "Internal error: \$Module::CoreList::version{ $] } is empty";
+ or die
+ "Internal error: \$Module::CoreList::version{$perl_version} is empty";
return exists( $core->{$module} );
}
More information about the Pkg-perl-cvs-commits
mailing list