| line |
true |
false |
branch |
|
42
|
0 |
1 |
if $o->{'CONFIG'}{'BUILD_NOISY'} |
|
46
|
0 |
1 |
unless ($o->UNTAINT) |
|
48
|
0 |
0 |
unless defined $o->{'ILSM'}{'MAKEFILE'}{'INC'} |
|
50
|
1 |
0 |
unless defined $o->{'ILSM'}{'AUTOWRAP'} |
|
51
|
1 |
0 |
unless defined $o->{'ILSM'}{'XSMODE'} |
|
68
|
0 |
0 |
if ($key eq 'PRE_HEAD') |
|
69
|
0 |
0 |
if (-f $value) { } |
|
74
|
0 |
0 |
unless open RD, '<', $value |
|
76
|
0 |
0 |
unless close RD |
|
81
|
0 |
0 |
if ($key eq 'MAKE' or $key eq 'AUTOWRAP' or $key eq 'XSMODE') |
|
88
|
0 |
0 |
if ($key eq 'CC' or $key eq 'LD') |
|
93
|
0 |
0 |
if ($key eq 'LIBS') |
|
97
|
0 |
0 |
if ($key eq 'INC') |
|
101
|
0 |
0 |
if ($key eq 'MYEXTLIB' or $key eq 'OPTIMIZE' or $key eq 'CCFLAGS' or $key eq 'LDDLFLAGS') |
|
108
|
0 |
0 |
if ($key eq 'CCFLAGSEX') |
|
112
|
0 |
0 |
if ($key eq 'TYPEMAPS') |
|
113
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
114
|
0 |
0 |
unless -f $value |
|
121
|
0 |
0 |
unless -f do {
$value
}->[$i] |
|
128
|
0 |
0 |
if ($key eq 'AUTO_INCLUDE') |
|
132
|
0 |
0 |
if ($key eq 'BOOT') |
|
136
|
0 |
0 |
if ($key eq 'PREFIX') |
|
137
|
0 |
0 |
unless $value =~ /^\w*$/ and not $value =~ /\n/ |
|
143
|
0 |
0 |
if ($key eq 'FILTERS') |
|
144
|
0 |
0 |
if $value eq '1' or $value eq '0' |
|
145
|
0 |
0 |
unless ref $value eq 'ARRAY' |
|
148
|
0 |
0 |
if (ref $val eq 'CODE') { } |
|
153
|
0 |
0 |
if $@ |
|
156
|
0 |
0 |
unless keys %filters |
|
157
|
0 |
0 |
if (defined $filters{$val}) { } |
|
169
|
0 |
0 |
if ($key eq 'STRUCTS') |
|
171
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($value =~ /^\d+$/) { } |
|
173
|
0 |
0 |
unless $val =~ /^[_a-z][_0-9a-z]*$/i |
|
184
|
0 |
0 |
unless $value =~ /^[_a-z][_0-9a-z]*$/i |
|
189
|
0 |
0 |
if $@ |
|
194
|
0 |
0 |
if ($key eq 'PROTOTYPES') |
|
196
|
0 |
0 |
if $value eq 'ENABLE' |
|
197
|
0 |
0 |
if $value eq 'DISABLE' |
|
200
|
0 |
0 |
if ($key eq 'PROTOTYPE') |
|
201
|
0 |
0 |
unless ref $value eq 'HASH' |
|
214
|
0 |
0 |
unless ref $value eq 'ARRAY' |
|
216
|
0 |
0 |
if (defined $_) { } |
|
228
|
0 |
0 |
unless ref $value |
|
229
|
0 |
0 |
unless ref $value eq 'ARRAY' |
|
231
|
0 |
0 |
if (defined $_) { } |
|
243
|
0 |
0 |
unless ref $value |
|
244
|
0 |
0 |
unless ref $value eq 'ARRAY' |
|
246
|
0 |
0 |
if (defined $_) { } |
|
261
|
0 |
0 |
if $o->{'ILSM'}{'XSMODE'} |
|
268
|
0 |
0 |
if (defined $o->{'ILSM'}{'parser'}{'data'}{'functions'}) { } |
|
283
|
0 |
0 |
if $o->{'STRUCT'}{'.any'} |
|
298
|
0 |
1 |
if ($o->{'CONFIG'}{'BUILD_TIMERS'}) |
|
300
|
0 |
0 |
if $@ |
|
309
|
0 |
0 |
if ($o->{'CONFIG'}{'BUILD_TIMERS'}) |
|
319
|
0 |
8 |
if $o->{'CONFIG'}{'BUILD_NOISY'} |
|
321
|
0 |
8 |
if $o->{'CONFIG'}{'BUILD_TIMERS'} |
|
326
|
0 |
6 |
if $o->{'CONFIG'}{'BUILD_TIMERS'} |
|
327
|
0 |
6 |
if $o->{'CONFIG'}{'BUILD_NOISY'} |
|
329
|
0 |
6 |
if $o->{'CONFIG'}{'BUILD_TIMERS'} |
|
330
|
0 |
6 |
if $o->{'CONFIG'}{'BUILD_NOISY'} |
|
338
|
0 |
1 |
if $o->{'ILSM'}{'parser'} |
|
349
|
0 |
1 |
if $o->{'ILSM'}{'parser'} |
|
350
|
0 |
1 |
if $o->{'ILSM'}{'XSMODE'} |
|
354
|
0 |
1 |
if $o->{'STRUCT'}{'.any'} |
|
356
|
0 |
1 |
unless $parser->code($o->{'ILSM'}{'code'}) |
|
364
|
0 |
1 |
if $o->{'CONFIG'}{'_TESTING'} |
|
375
|
0 |
1 |
if $o->{'CONFIG'}{'BUILD_NOISY'} |
|
379
|
1 |
0 |
if -f $file |
|
381
|
0 |
1 |
if not $typemap and -f $file |
|
383
|
0 |
0 |
if not $typemap and $^W |
|
386
|
1 |
0 |
if $typemap |
|
388
|
0 |
1 |
if (not $o->UNTAINT) |
|
391
|
0 |
0 |
if (-f $file) |
|
406
|
0 |
1 |
unless @{$o->{'ILSM'}{'MAKEFILE'}{'TYPEMAPS'};} |
|
410
|
0 |
1 |
unless -e $typemap |
|
412
|
0 |
1 |
unless -T $typemap |
|
414
|
0 |
1 |
unless open TYPEMAP, $typemap |
|
420
|
9 |
438 |
if /^\s*\#/ |
|
422
|
1 |
437 |
if (/^INPUT\s*$/) |
|
423
|
1 |
436 |
if (/^OUTPUT\s*$/) |
|
424
|
0 |
436 |
if (/^TYPEMAP\s*$/) |
|
425
|
54 |
382 |
if ($mode eq 'Typemap') { } |
|
|
296 |
86 |
elsif (/^\s/) { } |
|
|
43 |
43 |
elsif ($mode eq 'Input') { } |
|
430
|
3 |
51 |
if /^$/ or /^\#/ |
|
431
|
0 |
51 |
unless my($type, $kind, $proto) = /^\s*(.*?\S)\s+(\S+)\s*($proto_re*)\s*$/ |
|
437
|
51 |
0 |
unless $proto |
|
438
|
0 |
51 |
unless &ValidProtoString($proto) |
|
479
|
51 |
0 |
$string =~ /^$proto_re+$/ ? : |
|
508
|
0 |
1 |
unless open XS, '> ' . 'File::Spec'->catfile($o->{'API'}{'build_dir'}, "$modfname.xs") |
|
510
|
0 |
1 |
if ($o->{'ILSM'}{'XSMODE'}) { } |
|
511
|
0 |
0 |
if $^W and not $o->{'ILSM'}{'code'} =~ /MODULE\s*=\s*$module\b/ |
|
564
|
0 |
0 |
if (defined $o->{'ILSM'}{'XS'}{'BOOT'} and $o->{'ILSM'}{'XS'}{'BOOT'}) |
|
578
|
0 |
1 |
if ($o->{'CONFIG'}{'_TESTING'}) |
|
579
|
0 |
0 |
unless (-d $dir) |
|
581
|
0 |
0 |
unless $ok |
|
584
|
0 |
0 |
unless (-f "$dir/void_test") |
|
585
|
0 |
0 |
unless open TEST_FH, '>', "$dir/void_test" |
|
586
|
0 |
0 |
unless close TEST_FH |
|
591
|
0 |
1 |
$o->{'ILSM'}{'XS'}{'PREFIX'} ? : |
|
596
|
0 |
1 |
defined $o->{'CONFIG'}{'PROTOTYPES'} ? : |
|
611
|
0 |
0 |
if not defined $data->{'functions'} and $^W |
|
623
|
0 |
2 |
if $arg_type eq '...' |
|
628
|
0 |
1 |
if (defined $o->{'CONFIG'}{'PROTOTYPE'}) |
|
632
|
0 |
1 |
if (defined $h{$function}) |
|
637
|
0 |
1 |
if @arg_names and $arg_names[-1] eq '...' |
|
641
|
0 |
1 |
if ($return_type eq 'void') { } |
|
|
0 |
1 |
elsif ($listargs) { } |
|
642
|
0 |
0 |
if ($o->{'CONFIG'}{'_TESTING'}) { } |
|
703
|
0 |
1 |
unless open HEADER, '> ' . 'File::Spec'->catfile($o->{'API'}{'build_dir'}, 'INLINE.h') |
|
756
|
0 |
1 |
unless open MF, '> ' . 'File::Spec'->catfile($o->{'API'}{'build_dir'}, 'Makefile.PL') |
|
786
|
1 |
0 |
if $o->UNTAINT |
|
797
|
1 |
0 |
if $@ |
|
805
|
0 |
1 |
unless -f ($perl = $Config::Config{'perlpath'}) or $perl = $^X |
|
807
|
0 |
1 |
if $perl =~ /\s/ |
|
814
|
0 |
1 |
unless my $make = $o->{'ILSM'}{'MAKE'} || $Config::Config{'make'} |
|
821
|
0 |
0 |
unless my $make = $o->{'ILSM'}{'MAKE'} || $Config::Config{'make'} |
|
829
|
0 |
0 |
if ($o->{'API'}{'cleanup'}) |
|
846
|
0 |
2 |
defined $ENV{'PERL_INLINE_BUILD_NOISY'} ? : |
|
847
|
0 |
0 |
if $build_noisy and $^O eq 'MSWin32' and $Config::Config{'sh'} =~ /^cmd/ |
|
848
|
2 |
0 |
unless ($build_noisy) |
|
851
|
2 |
0 |
if $o->UNTAINT |
|
852
|
1 |
1 |
unless system($cmd) == 0 |
|
860
|
1 |
0 |
if (not $build_noisy and open OUTPUT, $output_file) |
|
881
|
1 |
0 |
if ($cmd =~ /^make >/) |
|
883
|
3 |
25 |
if /^MAKE/ |
|
907
|
0 |
1 |
unless open MAKEFILE, '< Makefile' |
|
912
|
0 |
1 |
unless open MAKEFILE, '> Makefile' |
|
915
|
4 |
1030 |
if (/^(\w+)\s*=\s*\S+.*$/ and $fix = $fixes{$1}) { } |
|
919
|
2 |
2 |
if $fix eq 'install_lib' |
|
932
|
0 |
0 |
if $ENV{'NO_INSANE_DIRNAMES'} |
|
939
|
0 |
0 |
if $_[0] =~ /"/ or $_[0] =~ /\t/ |
|
958
|
0 |
0 |
if -d $in[$i] . '-I' . $t |
|
980
|
0 |
0 |
if $in[$i] =~ /\s/ |
|
988
|
0 |
0 |
if $i |
|
989
|
0 |
0 |
if $q{$i} |
|
1002
|
0 |
3 |
if $_[0] =~ / / |
|
1012
|
0 |
0 |
unless (-d $dir) |
|
1014
|
0 |
0 |
unless $ok |
|
1017
|
0 |
0 |
unless open TEST_FH, '>>', "$dir/parser_id" |
|
1019
|
0 |
0 |
if not close TEST_FH |
|
1029
|
0 |
0 |
if (-f "$dir/parser_id") |
|
1030
|
0 |
0 |
unless unlink "$dir/parser_id" |
|
1033
|
0 |
0 |
if (-f "$dir/void_test") |
|
1034
|
0 |
0 |
if not unlink("$dir/void_test") |