line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#! /usr/local/bin/perl |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
5
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
23
|
|
4
|
1
|
|
|
1
|
|
4
|
use Cwd; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
48
|
|
5
|
1
|
|
|
1
|
|
4
|
use File::Basename; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
55
|
|
6
|
1
|
|
|
1
|
|
3
|
use File::Spec; |
|
1
|
|
|
|
|
0
|
|
|
1
|
|
|
|
|
125
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub magic_number_matches { |
9
|
1
|
50
|
|
1
|
|
24
|
return 0 unless -e '_build/magicnum'; |
10
|
1
|
|
|
|
|
1
|
my $FH; |
11
|
1
|
50
|
|
|
|
41
|
open $FH, '<','_build/magicnum' or return 0; |
12
|
1
|
|
|
|
|
15
|
my $filenum = <$FH>; |
13
|
1
|
|
|
|
|
5
|
close $FH; |
14
|
1
|
|
|
|
|
6
|
return $filenum == 389615; |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
1
|
|
|
|
|
2
|
my $progname; |
18
|
|
|
|
|
|
|
my $orig_dir; |
19
|
|
|
|
|
|
|
BEGIN { |
20
|
1
|
|
|
1
|
|
2
|
$^W = 1; # Use warnings |
21
|
1
|
|
|
|
|
44
|
$progname = basename($0); |
22
|
1
|
|
|
|
|
1723
|
$orig_dir = Cwd::cwd(); |
23
|
1
|
|
|
|
|
4
|
my $base_dir = '/root/.cpan/build/Linux-Netfilter-Log-1.0-JfUkEd'; |
24
|
1
|
50
|
|
|
|
5
|
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
|
|
|
|
|
51
|
unshift @INC, |
33
|
|
|
|
|
|
|
( |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
); |
36
|
|
|
|
|
|
|
} |
37
|
|
|
|
|
|
|
|
38
|
1
|
50
|
|
|
|
7
|
close(*DATA) unless eof(*DATA); # ensure no open handles to this script |
39
|
|
|
|
|
|
|
|
40
|
1
|
|
|
1
|
|
465
|
use Module::Build; |
|
1
|
|
|
|
|
52268
|
|
|
1
|
|
|
|
|
1060
|
|
41
|
1
|
|
|
|
|
22
|
Module::Build->VERSION(q{0.38}); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
# Some platforms have problems setting $^X in shebang contexts, fix it up here |
44
|
1
|
|
|
|
|
9
|
$^X = Module::Build->find_perl_interpreter; |
45
|
|
|
|
|
|
|
|
46
|
1
|
50
|
33
|
|
|
264947
|
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
|
|
|
|
|
63
|
my $build = Module::Build->resume ( |
52
|
|
|
|
|
|
|
properties => { |
53
|
|
|
|
|
|
|
config_dir => '_build', |
54
|
|
|
|
|
|
|
orig_dir => $orig_dir, |
55
|
|
|
|
|
|
|
}, |
56
|
|
|
|
|
|
|
); |
57
|
|
|
|
|
|
|
|
58
|
1
|
|
|
|
|
8506330
|
$build->dispatch; |