4 |
use strict; |
use strict; |
5 |
use Module::Install::Base; |
use Module::Install::Base; |
6 |
|
|
7 |
use vars qw{$VERSION $ISCORE @ISA}; |
use vars qw{$VERSION @ISA $ISCORE}; |
8 |
BEGIN { |
BEGIN { |
9 |
$VERSION = '0.68'; |
$VERSION = '0.75'; |
|
$ISCORE = 1; |
|
10 |
@ISA = qw{Module::Install::Base}; |
@ISA = qw{Module::Install::Base}; |
11 |
|
$ISCORE = 1; |
12 |
} |
} |
13 |
|
|
14 |
# determine if the user needs nmake, and download it if needed |
# determine if the user needs nmake, and download it if needed |
16 |
my $self = shift; |
my $self = shift; |
17 |
$self->load('can_run'); |
$self->load('can_run'); |
18 |
$self->load('get_file'); |
$self->load('get_file'); |
19 |
|
|
20 |
require Config; |
require Config; |
21 |
return unless ( |
return unless ( |
22 |
$^O eq 'MSWin32' and |
$^O eq 'MSWin32' and |
38 |
remove => 1, |
remove => 1, |
39 |
); |
); |
40 |
|
|
41 |
if (!$rv) { |
die <<'END_MESSAGE' unless $rv; |
|
die <<'END_MESSAGE'; |
|
42 |
|
|
43 |
------------------------------------------------------------------------------- |
------------------------------------------------------------------------------- |
44 |
|
|
58 |
|
|
59 |
------------------------------------------------------------------------------- |
------------------------------------------------------------------------------- |
60 |
END_MESSAGE |
END_MESSAGE |
61 |
} |
|
62 |
} |
} |
63 |
|
|
64 |
1; |
1; |