r27268 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Nov 25 22:31:09 2008
New Revision: 27268

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27268
Log:
drop unused @stdmodules and get_stdmodules()

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27268&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Tue Nov 25 22:31:09 2008
@@ -234,7 +234,7 @@
 ######################################################################
 # Main dh-make-perl starts here, don't look any further!
 package main;
-my (@stdmodules, $min_perl_version, $debstdversion, $priority,
+my ($min_perl_version, $debstdversion, $priority,
     $section,    $depends,          $bdepends,      $bdependsi,
     $maintainer, $arch,             $closes,        $date,
     $debiandir,  $startdir,         $datadir,       $homedir,
@@ -298,7 +298,6 @@
 ) or die usage_instructions();
 
 $bdepends   = "debhelper (>= $opts{dh})";
- at stdmodules = get_stdmodules();
 
 # Help requested? Nice, we can just die! Isn't it helpful?
 die usage_instructions() if $opts{help};
@@ -451,20 +450,6 @@
                [ --closes ITPBUG ] [ --packagename|-p PACKAGENAME ]
                [ --email|-e EMAIL ] [ --pkg-perl ] [ --dh <ver> ]
 USAGE
-}
-
-sub get_stdmodules {
-
-    # Module::CoreList already knows our core modules, so we ask it.
-    # $] is our perl version.
-
-    my @modules = keys %{ $Module::CoreList::version{ $] } };
-
-    @modules
-        or die "Internal error: \$Module::CoreList::version{ $] } is empty";
-
-    return @modules;
-
 }
 
 sub is_core_module {