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
56
57
58
|
use strict;
use warnings;
no warnings qw(redefine once);
my $url = $ENV{CPAN_MIRROR};
my $ll_root = $ENV{LOCAL_LIB_CPAN_TEST};
require ExtUtils::MakeMaker;
{
my $orig = \&ExtUtils::MakeMaker::prompt;
*ExtUtils::MakeMaker::prompt = sub ($;$) {
if ($_[0] =~ /manual configuration/) {
return "no";
}
$orig->(@_);
};
}
require CPAN;
my %config = %{ $CPAN::Config } = (
urllist => ["$url"],
install_help => 'manual',
check_sigs => 0,
shell => (
$^O eq 'MSWin32' ? ($ENV{COMSPEC} || 'cmd.exe')
: ($ENV{SHELL} || '/bin/sh')
),
);
CPAN->import;
*CPAN::Distribution::check_integrity = sub { 1 };
CPAN::Config->load;
%{ $CPAN::Config } = (
%config,
install_help => 'local::lib',
);
CPAN::Config->init;
require Data::Dumper;
$Data::Dumper::Useqq = 1;
$Data::Dumper::Terse = 1;
print join "\n",
'',
'####### ENVIRONMENT ###########',
(map {
my $k = $_;
my $v = $ENV{$_};
$v = Data::Dumper::Dumper($v)
if $v =~ /[^ -~]/;
sprintf '%-20s %s', $k, $v;
} sort keys %ENV),
'####### END ENVIRONMENT #######',
'####### INC ###################',
@INC,
'####### END INC ###############',
'',
;
|
