line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package |
2
|
|
|
|
|
|
|
XS::Install::PkgConfigFixed; |
3
|
1
|
|
|
1
|
|
739
|
use PkgConfig; |
|
1
|
|
|
|
|
126052
|
|
|
1
|
|
|
|
|
102
|
|
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
21
|
no warnings 'redefine'; |
|
1
|
|
|
|
|
6
|
|
|
1
|
|
|
|
|
340
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
my $orig_parse_line = \&PkgConfig::parse_line; |
8
|
|
|
|
|
|
|
*PkgConfig::parse_line = sub { |
9
|
150
|
|
|
150
|
|
42031
|
my $self = shift; |
10
|
150
|
|
|
|
|
275
|
my $line = shift; |
11
|
150
|
100
|
|
|
|
458
|
$line =~ s/[@]/^/g if $line =~ /=/; |
12
|
150
|
|
|
|
|
379
|
return $orig_parse_line->($self, $line, @_); |
13
|
|
|
|
|
|
|
}; |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
my $orig_assign_var = \&PkgConfig::assign_var; |
16
|
|
|
|
|
|
|
*PkgConfig::assign_var = sub { |
17
|
136
|
|
|
136
|
|
10320
|
my ($self, $field, $value) = (shift, shift, shift); |
18
|
136
|
|
|
|
|
238
|
$value =~ s/\^/\\\@/g; |
19
|
136
|
|
|
|
|
334
|
return $orig_assign_var->($self, $field, $value); |
20
|
|
|
|
|
|
|
}; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |