Digest::MD5->bootstrap($VERSION) 失败

jayeley

下面是Digest::MD5模块中MD5.pm的开头一部分，我调用的时候发现执行eval里的内容失败了，有没有人知道什么原因？

package Digest::MD5;

use strict;
use vars qw($VERSION @ISA @EXPORT_OK);

$VERSION = '2.13';  # $Date: 2001/07/26 22:30:03 $

require Exporter;
*import = \&Exporter::import;
@EXPORT_OK = qw(md5 md5_hex md5_base64);

require DynaLoader;
@ISA=qw(DynaLoader);

eval {
    Digest::MD5->bootstrap($VERSION);
};
if ($@) {
    # Try to load the pure perl version
    require Digest:erl::MD5;

    Digest:erl::MD5->import(qw(md5 md5_hex md5_base64));
    push(@ISA, "Digest:erl::MD5";  # make OO interface work
}
else {
    *reset = \&new;
}

1;
__END__