line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#! /usr/local/bin/perl |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
22
|
|
4
|
1
|
|
|
1
|
|
4
|
use Cwd; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
62
|
|
5
|
1
|
|
|
1
|
|
5
|
use File::Basename; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
80
|
|
6
|
1
|
|
|
1
|
|
5
|
use File::Spec; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
145
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub magic_number_matches { |
9
|
1
|
50
|
|
1
|
|
24
|
return 0 unless -e '_build/magicnum'; |
10
|
1
|
|
|
|
|
5
|
my $FH; |
11
|
1
|
50
|
|
|
|
107
|
open $FH, '<','_build/magicnum' or return 0; |
12
|
1
|
|
|
|
|
20
|
my $filenum = <$FH>; |
13
|
1
|
|
|
|
|
8
|
close $FH; |
14
|
1
|
|
|
|
|
10
|
return $filenum == 916342; |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
|
|
2
|
my $progname; |
18
|
|
|
|
|
|
|
my $orig_dir; |
19
|
|
|
|
|
|
|
BEGIN { |
20
|
1
|
|
|
1
|
|
3
|
$^W = 1; # Use warnings |
21
|
1
|
|
|
|
|
60
|
$progname = basename($0); |
22
|
1
|
|
|
|
|
1731
|
$orig_dir = Cwd::cwd(); |
23
|
1
|
|
|
|
|
11
|
my $base_dir = '/root/.cpan/build/Text-Numbers-100-20171228-0'; |
24
|
1
|
50
|
|
|
|
12
|
if (!magic_number_matches()) { |
25
|
0
|
0
|
|
|
|
0
|
unless (chdir($base_dir)) { |
26
|
0
|
|
|
|
|
0
|
die ("Couldn't chdir($base_dir), aborting\n"); |
27
|
|
|
|
|
|
|
} |
28
|
0
|
0
|
|
|
|
0
|
unless (magic_number_matches()) { |
29
|
0
|
|
|
|
|
0
|
die ("Configuration seems to be out of date, please re-run 'perl Build.PL' again.\n"); |
30
|
|
|
|
|
|
|
} |
31
|
|
|
|
|
|
|
} |
32
|
1
|
|
|
|
|
2
|
unshift @INC, |
33
|
|
|
|
|
|
|
( |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
); |
36
|
1
|
50
|
|
|
|
19
|
if ($INC[-1] ne '.') { |
37
|
1
|
|
|
|
|
83
|
push @INC, '.'; |
38
|
|
|
|
|
|
|
} |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
} |
41
|
|
|
|
|
|
|
|
42
|
1
|
50
|
|
|
|
4
|
close(*DATA) unless eof(*DATA); # ensure no open handles to this script |
43
|
|
|
|
|
|
|
|
44
|
1
|
|
|
1
|
|
620
|
use Module::Build; |
|
1
|
|
|
|
|
64604
|
|
|
1
|
|
|
|
|
1204
|
|
45
|
1
|
|
|
|
|
19
|
Module::Build->VERSION(q{0.42}); |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
# Some platforms have problems setting $^X in shebang contexts, fix it up here |
48
|
1
|
|
|
|
|
7
|
$^X = Module::Build->find_perl_interpreter; |
49
|
|
|
|
|
|
|
|
50
|
1
|
50
|
33
|
|
|
298282
|
if (-e 'Build.PL' and not Module::Build->up_to_date('Build.PL', $progname)) { |
51
|
0
|
|
|
|
|
0
|
warn "Warning: Build.PL has been altered. You may need to run 'perl Build.PL' again.\n"; |
52
|
|
|
|
|
|
|
} |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
# This should have just enough arguments to be able to bootstrap the rest. |
55
|
1
|
|
|
|
|
107
|
my $build = Module::Build->resume ( |
56
|
|
|
|
|
|
|
properties => { |
57
|
|
|
|
|
|
|
config_dir => '_build', |
58
|
|
|
|
|
|
|
orig_dir => $orig_dir, |
59
|
|
|
|
|
|
|
}, |
60
|
|
|
|
|
|
|
); |
61
|
|
|
|
|
|
|
|
62
|
1
|
|
|
|
|
543019
|
$build->dispatch; |