line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#! /usr/local/bin/perl |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
8
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
40
|
|
4
|
1
|
|
|
1
|
|
6
|
use Cwd; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
98
|
|
5
|
1
|
|
|
1
|
|
7
|
use File::Basename; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
119
|
|
6
|
1
|
|
|
1
|
|
6
|
use File::Spec; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
204
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub magic_number_matches { |
9
|
1
|
50
|
|
1
|
|
95
|
return 0 unless -e '_build/magicnum'; |
10
|
1
|
|
|
|
|
3
|
my $FH; |
11
|
1
|
50
|
|
|
|
154
|
open $FH, '<','_build/magicnum' or return 0; |
12
|
1
|
|
|
|
|
18
|
my $filenum = <$FH>; |
13
|
1
|
|
|
|
|
16
|
close $FH; |
14
|
1
|
|
|
|
|
21
|
return $filenum == 477919; |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
|
|
4
|
my $progname; |
18
|
|
|
|
|
|
|
my $orig_dir; |
19
|
|
|
|
|
|
|
BEGIN { |
20
|
1
|
|
|
1
|
|
5
|
$^W = 1; # Use warnings |
21
|
1
|
|
|
|
|
81
|
$progname = basename($0); |
22
|
1
|
|
|
|
|
2458
|
$orig_dir = Cwd::cwd(); |
23
|
1
|
|
|
|
|
22
|
my $base_dir = '/root/.cpan/build/Data-Table-Text-20210730-0'; |
24
|
1
|
50
|
|
|
|
22
|
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
|
|
|
|
|
6
|
unshift @INC, |
33
|
|
|
|
|
|
|
( |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
); |
36
|
1
|
50
|
|
|
|
19
|
if ($INC[-1] ne '.') { |
37
|
1
|
|
|
|
|
174
|
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
|
|
1131
|
use Module::Build; |
|
1
|
|
|
|
|
89921
|
|
|
1
|
|
|
|
|
1714
|
|
45
|
1
|
|
|
|
|
27
|
Module::Build->VERSION(q{0.4224}); |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
# Some platforms have problems setting $^X in shebang contexts, fix it up here |
48
|
1
|
|
|
|
|
12
|
$^X = Module::Build->find_perl_interpreter; |
49
|
|
|
|
|
|
|
|
50
|
1
|
50
|
33
|
|
|
353316
|
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
|
|
|
|
|
150
|
my $build = Module::Build->resume ( |
56
|
|
|
|
|
|
|
properties => { |
57
|
|
|
|
|
|
|
config_dir => '_build', |
58
|
|
|
|
|
|
|
orig_dir => $orig_dir, |
59
|
|
|
|
|
|
|
}, |
60
|
|
|
|
|
|
|
); |
61
|
|
|
|
|
|
|
|
62
|
1
|
|
|
|
|
761341
|
$build->dispatch; |