line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#! /usr/local/bin/perl |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
27
|
|
4
|
1
|
|
|
1
|
|
5
|
use Cwd; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
71
|
|
5
|
1
|
|
|
1
|
|
5
|
use File::Basename; |
|
1
|
|
|
|
|
5
|
|
|
1
|
|
|
|
|
94
|
|
6
|
1
|
|
|
1
|
|
5
|
use File::Spec; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
206
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub magic_number_matches { |
9
|
1
|
50
|
|
1
|
|
37
|
return 0 unless -e '_build/magicnum'; |
10
|
1
|
|
|
|
|
2
|
my $FH; |
11
|
1
|
50
|
|
|
|
96
|
open $FH, '<','_build/magicnum' or return 0; |
12
|
1
|
|
|
|
|
26
|
my $filenum = <$FH>; |
13
|
1
|
|
|
|
|
11
|
close $FH; |
14
|
1
|
|
|
|
|
11
|
return $filenum == 288468; |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
|
|
3
|
my $progname; |
18
|
|
|
|
|
|
|
my $orig_dir; |
19
|
|
|
|
|
|
|
BEGIN { |
20
|
1
|
|
|
1
|
|
2
|
$^W = 1; # Use warnings |
21
|
1
|
|
|
|
|
56
|
$progname = basename($0); |
22
|
1
|
|
|
|
|
4546
|
$orig_dir = Cwd::cwd(); |
23
|
1
|
|
|
|
|
9
|
my $base_dir = '/root/.cpan/build/YATT-0.0.9-8kZ5jg'; |
24
|
1
|
50
|
|
|
|
13
|
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
|
|
|
|
|
100
|
unshift @INC, |
33
|
|
|
|
|
|
|
( |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
); |
36
|
|
|
|
|
|
|
} |
37
|
|
|
|
|
|
|
|
38
|
1
|
50
|
|
|
|
9
|
close(*DATA) unless eof(*DATA); # ensure no open handles to this script |
39
|
|
|
|
|
|
|
|
40
|
1
|
|
|
1
|
|
3170
|
use Module::Build; |
|
1
|
|
|
|
|
112436
|
|
|
1
|
|
|
|
|
1991
|
|
41
|
1
|
|
|
|
|
41
|
Module::Build->VERSION(q{0}); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
# Some platforms have problems setting $^X in shebang contexts, fix it up here |
44
|
1
|
|
|
|
|
12
|
$^X = Module::Build->find_perl_interpreter; |
45
|
|
|
|
|
|
|
|
46
|
1
|
50
|
33
|
|
|
480750
|
if (-e 'Build.PL' and not Module::Build->up_to_date('Build.PL', $progname)) { |
47
|
0
|
|
|
|
|
0
|
warn "Warning: Build.PL has been altered. You may need to run 'perl Build.PL' again.\n"; |
48
|
|
|
|
|
|
|
} |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
# This should have just enough arguments to be able to bootstrap the rest. |
51
|
1
|
|
|
|
|
98
|
my $build = Module::Build->resume ( |
52
|
|
|
|
|
|
|
properties => { |
53
|
|
|
|
|
|
|
config_dir => '_build', |
54
|
|
|
|
|
|
|
orig_dir => $orig_dir, |
55
|
|
|
|
|
|
|
}, |
56
|
|
|
|
|
|
|
); |
57
|
|
|
|
|
|
|
|
58
|
1
|
|
|
|
|
1954768
|
$build->dispatch; |