CPAN模块安装does not contain a Line-Count header错误的解决办法

近来很是郁闷，想安装个mysql+php的系统，结果发现mysql的5.1.23版本中有个很严重的bug，导致php无法安装，不得已升级下mysql至5.1.38版本了，在升级的过程中安装Bundle::DBI模块，结果发现cpan报错：

perl -MCPAN -e shell

cpan> install Bundle::DBI
CPAN: Storable loaded ok
Going to read /root/.cpan/Metadata
  Database was generated on Sun, 27 Jul 2008 16:02:45 GMT
Going to read /root/.cpan/sources/authors/01mailrc.txt.gz
Going to read /root/.cpan/sources/modules/02packages.details.txt.gz
Warning: Your /root/.cpan/sources/modules/02packages.details.txt.gz does not contain a Line-Count header.
Please check the validity of the index file by comparing it to more
than one CPAN mirror. I’ll continue but problems seem likely to
happen.
Warning: Your /root/.cpan/sources/modules/02packages.details.txt.gz does not contain a Last-Updated header.
Please check the validity of the index file by comparing it to more
than one CPAN mirror. I’ll continue but problems seem likely to
happen.
Going to read /root/.cpan/sources/modules/03modlist.data.gz
Can’t locate object method "data" via package "CPAN::Modulelist" (perhaps you forgot to load "CPAN::Modulelist"?) at (eval 14) line 1.
at /usr/lib/perl5/5.8.8/CPAN.pm line 3405
        CPAN::Index::rd_modlist(’CPAN::Index’, ‘/root/.cpan/sources/modules/03modlist.data.gz’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 3128
        CPAN::Index::reload(’CPAN::Index’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 785
        CPAN::instance(’CPAN=HASH(0×88dd02c)’, ‘CPAN::Bundle’, ‘Bundle::DBI’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 1427
        CPAN::Shell::local_bundles(’CPAN::Shell’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 1835
        CPAN::Shell::expandany(’CPAN::Shell’, ‘Bundle::DBI’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 2077
        CPAN::Shell::rematein(’CPAN::Shell’, ‘install’, ‘Bundle::DBI’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 2164
        CPAN::Shell::install(’CPAN::Shell’, ‘Bundle::DBI’) called at /usr/lib/perl5/5.8.8/CPAN.pm line 201
        eval {…} called at /usr/lib/perl5/5.8.8/CPAN.pm line 201
        CPAN::shell() called at -e line 1

郁闷了，重新配置cpan：

perl -MCPAN -e shell

CPAN>o conf init

问题依旧。。。

看来是cpan出问题了，可能是数据损坏：

解决方法：
1，删除用户主目录下面的pan目录
rm -rf ~/.cpan
保险起见，可以将~/.cpan重命名

执行perl -MCPAN -e shell命令，输入：
2. CPAN>o conf init
重新配置cpan，这个时候提示是手动配置还是自动配置，输入no，让系统自动配置

3，执行perl -MCPAN -e shell命令，输入：
reload index

4，安装此模块：
install Bundle::CPAN

5，最后执行
reload CPAN