r28437 - /trunk/dh-make-perl/lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

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} );
 }