CPAN::Mini::Inject不更新03modlist.data.gz

Question

我打算创建一个空的本地CPAN目录，然后用正确的版本号注入我需要的模块。

因此，我使用CPAN::Mini创建了一个CPAN结构，如下所示：

my $local = '/tmp/CPAN';

my $minicpan = CPAN::Mini->new(
remote => "http://mirrors4.kernel.org/cpan/",
  local  => $local,
  passive  => 'yes',
  dirmode => 0755,
  repository => $local,
  module_filters => [ sub { $_[0] !~ m/No::Giro/i } ], #Thus us just to fetch this module only
  trace => 1                               
);

mkdir($local."/authors") or die("Could not create authors folder");

mkdir($local."/modules") or die("Could not create modules folder");

my @files = ('authors/01mailrc.txt.gz', 'modules/02packages.details.txt.gz', 'modules/03modlist.data.gz');
foreach my $file (@files){
  print "Creating file $local/$file \n";
  open(FILE, "+> $local/$file") or die("Could not create $local/$file");;
  close (FILE);  
}

然后尝试使用CPAN：：Mini：：inject注入一个模块：

use strict;
use warnings;
use Getopt::Long;
use CPAN::Mini::Inject;


my $module    = undef;
my $authorid  = undef;
my $version   = undef;
my $file      = undef;

GetOptions(
  "module=s"      => \$module,
  "authorid=s"    => \$authorid,
  "version=s"     => \$version,
  "file=s"        => \$file,
);

die ("--module not provided") if(!defined($module) || $module eq '');
die ("--authorid not provided") if(!defined($authorid) || $authorid eq '');
die ("--version not provided") if(!defined($version) || $version eq '');
die ("--file not provided") if(!defined($file) || $file eq '');


die("File $file does not exists") unless ((-e $file) || (-f $file) );
my $mcpi = CPAN::Mini::Inject->new;
$mcpi->loadcfg('/tmp/minicpan.conf');
$mcpi->parsecfg();
$mcpi->readlist();

$mcpi->add(
  module   => $module, 
  authorid => $authorid, 
  version  => $version, 
  file     => $file );
$mcpi->inject(1);
$mcpi->writelist();
exit(0);

但是03modlist.data.gz文件没有更新(所以它是空的)，所以当我尝试在本地存储库中使用cpan时，我得到了与此文件相关的错误信息。有人知道如何生成一个有效的modlist文件吗？或者如何让CPAN::Mini或CPAN::Mini::Inject为你做这件事？

诚挚的问候

Answer 1

03modlist.data.gz是一个死文件。它曾经意味着什么，但即使一些工具试图使用它，它现在也不再有意义了。对于MyCPAN，我只创建了一个空文件：

File:        03modlist.data
Modcount:    0
Date:        Fri, 01 Apr 2011 03:28:16 GMT

package CPAN::Modulelist;
sub data { my $result = {} }
$CPAN::Modulelist::cols = [];
$CPAN::Modulelist::data = [];

哪个命令给您带来了问题，错误消息是什么，等等？

而且，当您想知道如何创建一个CPAN索引文件时，只需查看完整CPAN上的相同文件即可获得示例。:)