blob: 3269f4444154066cd9f08465c95de7bb6ae7fbd4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#--------------------------------------------------------------------------#
# This is a modified copy of version.pm 0.9909, bundled exclusively for
# use by ExtUtils::Makemaker and its dependencies to bootstrap when
# version.pm is not available. It should not be used by ordinary modules.
#
# When loaded, it will try to load version.pm. If that fails, it will load
# ExtUtils::MakeMaker::version::vpp and alias various *version functions
# to functions in that module. It will also override UNIVERSAL::VERSION.
#--------------------------------------------------------------------------#
package ExtUtils::MakeMaker::version;
use 5.006002;
use strict;
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
$VERSION = '7.04_01';
$CLASS = 'version';
{
local $SIG{'__DIE__'};
eval "use version";
if ( $@ ) { # don't have any version.pm installed
eval "use ExtUtils::MakeMaker::version::vpp";
die "$@" if ( $@ );
local $^W;
delete $INC{'version.pm'};
$INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'};
push @version::ISA, "ExtUtils::MakeMaker::version::vpp";
$version::VERSION = $VERSION;
*version::qv = \&ExtUtils::MakeMaker::version::vpp::qv;
*version::declare = \&ExtUtils::MakeMaker::version::vpp::declare;
*version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION;
*version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp;
*version::new = \&ExtUtils::MakeMaker::version::vpp::new;
if ($] >= 5.009000) {
no strict 'refs';
*version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify;
*{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify;
*{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp;
*version::parse = \&ExtUtils::MakeMaker::version::vpp::parse;
}
require ExtUtils::MakeMaker::version::regex;
*version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax;
*version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict;
*LAX = \$ExtUtils::MakeMaker::version::regex::LAX;
*STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT;
}
elsif ( ! version->can('is_qv') ) {
*version::is_qv = sub { exists $_[0]->{qv} };
}
}
1;
|
