| line |
true |
false |
branch |
|
268
|
0 |
0 |
if eval {
do {
$vers->isa('Devel::PatchPerl')
}
} |
|
270
|
0 |
0 |
unless ($vers) |
|
272
|
0 |
0 |
if ($vers) { } |
|
285
|
0 |
0 |
unless scalar @args |
|
295
|
0 |
1 |
unless my $possible = $ENV{'PERL5_PATCHPERL_PLUGIN'} |
|
296
|
0 |
0 |
unless $possible eq $_ |
|
297
|
1 |
0 |
unless ($plugin) |
|
305
|
0 |
0 |
if ($@) |
|
317
|
0 |
0 |
if ($@) |
|
329
|
0 |
4 |
if ($^O eq 'VMS') |
|
332
|
0 |
0 |
if scalar $syms->getsym(uc $command) |
|
340
|
0 |
4 |
if ('File::Spec'->file_name_is_absolute($command)) { } |
|
348
|
4 |
28 |
unless $dir and -d $dir |
|
349
|
0 |
28 |
$^O eq 'MSWin32' ? : |
|
350
|
2 |
26 |
if $abs = 'MM'->maybe_command($abs) |
|
353
|
0 |
4 |
if wantarray |
|
361
|
0 |
0 |
if defined $s1 != defined $s2 |
|
363
|
0 |
0 |
if ref $s2 |
|
365
|
0 |
0 |
if (ref $s1) |
|
366
|
0 |
0 |
if (ref $s1 eq 'ARRAY') |
|
382
|
0 |
0 |
unless $patch_exe |
|
385
|
0 |
0 |
unless unlink $diff |
|
391
|
0 |
0 |
unless my $fh = 'IO::File'->new(">$file") |
|
398
|
0 |
0 |
unless system(@_) == 0 |
|
403
|
4 |
2 |
if eval {
do {
$src->isa('Devel::PatchPerl')
}
} |
|
404
|
1 |
5 |
unless $src |
|
411
|
1 |
7 |
unless -e $patchlevel_h |
|
419
|
580 |
33 |
unless /^#define/ |
|
423
|
3 |
4 |
if (my(@wotsits) = grep({defined $defines{$_};} 'PERL_REVISION', 'PERL_VERSION', 'PERL_SUBVERSION')) { } |
|
|
3 |
1 |
elsif (my(@watsits) = grep({defined $defines{$_};} 'PATCHLEVEL', 'SUBVERSION')) { } |
|
438
|
0 |
0 |
if -d '.git' |
|
440
|
0 |
0 |
unless open my $plin, 'patchlevel.h' |
|
441
|
0 |
0 |
unless open my $plout, '>patchlevel.new' |
|
444
|
0 |
0 |
if (/\t,NULL/ and $seen) |
|
447
|
0 |
0 |
if /local_patches\[\]/ |
|
450
|
0 |
0 |
unless close $plout |
|
451
|
0 |
0 |
unless close $plin |
|
452
|
0 |
0 |
if -e 'patchlevel.bak' |
|
454
|
0 |
0 |
unless rename 'patchlevel.h', 'patchlevel.bak' |
|
456
|
0 |
0 |
unless rename 'patchlevel.new', 'patchlevel.h' |
|
463
|
0 |
0 |
if $^O eq 'gnukfreebsd' |
|
465
|
0 |
0 |
unless my($file, $data) = hint_file($os) |
|
467
|
0 |
0 |
if (-e $path) |
|
468
|
0 |
0 |
unless chmod 0644, $path |
|
470
|
0 |
0 |
unless open my $fh, '>', $path |
|
483
|
0 |
0 |
if -e "$file.bak" |
|
517
|
0 |
0 |
if $^O ne 'linux' or -f '/usr/include/asm/page.h' |
|
519
|
0 |
0 |
if ($opt{'old_format'}) { } |
|
605
|
0 |
0 |
if ($perl eq '5.6.0') |
|
789
|
0 |
0 |
if ($perl eq '5.6.1') |
|
961
|
0 |
0 |
if ($perl eq '5.6.2') |
|
1124
|
0 |
0 |
if ($perl eq '5.7.0') |
|
1292
|
0 |
0 |
if ($perl eq '5.7.1') |
|
1464
|
0 |
0 |
if ($perl eq '5.7.2') |
|
1631
|
0 |
0 |
if ($perl eq '5.7.3') |
|
1764
|
0 |
0 |
if ($perl eq '5.8.0') |
|
1937
|
0 |
0 |
if ($perl =~ /^5\.10/) { } |
|
2163
|
0 |
0 |
if ($perl =~ qr/^5\.8\.8$/) |
|
2317
|
0 |
0 |
unless $^O eq 'bitrig' |
|
2320
|
0 |
0 |
unless $num < 5.019004 |
|
2321
|
0 |
0 |
unless ($num < 5.008) |
|
2339
|
0 |
0 |
if ($num < 5.008009) { } |
|
2373
|
0 |
0 |
if ($num < 5.008001) { } |
|
|
0 |
0 |
elsif ($num < 5.008007) { } |
|
|
0 |
0 |
elsif ($num < 5.008009) { } |
|
|
0 |
0 |
elsif ($num < 5.013) { } |
|
2447
|
0 |
0 |
unless $^O eq 'solaris' |
|
2450
|
0 |
0 |
unless $num < 5.018 |
|
2645
|
0 |
0 |
if ($perl =~ /^5\.(?:8|10)\./) { } |
|
|
0 |
0 |
elsif ($perl =~ /^5\.6\./) { } |
|
5805
|
0 |
0 |
unless $num < 5.021009 |
|
5806
|
0 |
0 |
if $num > 5.020002 and $num < 5.021 |
|
5807
|
0 |
0 |
if ($num < 5.006) { } |
|
|
0 |
0 |
elsif ($num < 5.006001) { } |
|
|
0 |
0 |
elsif ($num < 5.007002) { } |
|
|
0 |
0 |
elsif ($num < 5.007003) { } |
|
|
0 |
0 |
elsif ($num < 5.008009) { } |
|
7644
|
0 |
0 |
if -d '.git' |