| line |
true |
false |
branch |
|
262
|
0 |
0 |
if eval {
do {
$vers->isa('Devel::PatchPerl')
}
} |
|
264
|
0 |
0 |
unless ($vers) |
|
266
|
0 |
0 |
if ($vers) { } |
|
279
|
0 |
0 |
unless scalar @args |
|
289
|
0 |
1 |
unless my $possible = $ENV{'PERL5_PATCHPERL_PLUGIN'} |
|
290
|
0 |
0 |
unless $possible eq $_ |
|
291
|
1 |
0 |
unless ($plugin) |
|
299
|
0 |
0 |
if ($@) |
|
311
|
0 |
0 |
if ($@) |
|
323
|
0 |
4 |
if ($^O eq 'VMS') |
|
326
|
0 |
0 |
if scalar $syms->getsym(uc $command) |
|
334
|
0 |
4 |
if ('File::Spec'->file_name_is_absolute($command)) { } |
|
342
|
4 |
28 |
unless $dir and -d $dir |
|
343
|
0 |
28 |
$^O eq 'MSWin32' ? : |
|
344
|
2 |
26 |
if $abs = 'MM'->maybe_command($abs) |
|
347
|
0 |
4 |
if wantarray |
|
355
|
0 |
0 |
if defined $s1 != defined $s2 |
|
357
|
0 |
0 |
if ref $s2 |
|
359
|
0 |
0 |
if (ref $s1) |
|
360
|
0 |
0 |
if (ref $s1 eq 'ARRAY') |
|
376
|
0 |
0 |
unless $patch_exe |
|
379
|
0 |
0 |
unless unlink $diff |
|
385
|
0 |
0 |
unless my $fh = 'IO::File'->new(">$file") |
|
392
|
0 |
0 |
unless system(@_) == 0 |
|
397
|
4 |
2 |
if eval {
do {
$src->isa('Devel::PatchPerl')
}
} |
|
398
|
1 |
5 |
unless $src |
|
405
|
1 |
7 |
unless -e $patchlevel_h |
|
413
|
580 |
33 |
unless /^#define/ |
|
417
|
3 |
4 |
if (my(@wotsits) = grep({defined $defines{$_};} 'PERL_REVISION', 'PERL_VERSION', 'PERL_SUBVERSION')) { } |
|
|
3 |
1 |
elsif (my(@watsits) = grep({defined $defines{$_};} 'PATCHLEVEL', 'SUBVERSION')) { } |
|
432
|
0 |
0 |
if -d '.git' |
|
434
|
0 |
0 |
unless open my $plin, 'patchlevel.h' |
|
435
|
0 |
0 |
unless open my $plout, '>patchlevel.new' |
|
438
|
0 |
0 |
if (/\t,NULL/ and $seen) |
|
441
|
0 |
0 |
if /local_patches\[\]/ |
|
444
|
0 |
0 |
unless close $plout |
|
445
|
0 |
0 |
unless close $plin |
|
446
|
0 |
0 |
if -e 'patchlevel.bak' |
|
448
|
0 |
0 |
unless rename 'patchlevel.h', 'patchlevel.bak' |
|
450
|
0 |
0 |
unless rename 'patchlevel.new', 'patchlevel.h' |
|
457
|
0 |
0 |
if $^O eq 'gnukfreebsd' |
|
459
|
0 |
0 |
unless my($file, $data) = hint_file($os) |
|
461
|
0 |
0 |
if (-e $path) |
|
462
|
0 |
0 |
unless chmod 0644, $path |
|
464
|
0 |
0 |
unless open my $fh, '>', $path |
|
477
|
0 |
0 |
if -e "$file.bak" |
|
511
|
0 |
0 |
if $^O ne 'linux' or -f '/usr/include/asm/page.h' |
|
513
|
0 |
0 |
if ($opt{'old_format'}) { } |
|
599
|
0 |
0 |
if ($perl eq '5.6.0') |
|
783
|
0 |
0 |
if ($perl eq '5.6.1') |
|
955
|
0 |
0 |
if ($perl eq '5.6.2') |
|
1118
|
0 |
0 |
if ($perl eq '5.7.0') |
|
1286
|
0 |
0 |
if ($perl eq '5.7.1') |
|
1458
|
0 |
0 |
if ($perl eq '5.7.2') |
|
1625
|
0 |
0 |
if ($perl eq '5.7.3') |
|
1758
|
0 |
0 |
if ($perl eq '5.8.0') |
|
1931
|
0 |
0 |
if ($perl =~ /^5\.10/) { } |
|
2157
|
0 |
0 |
if ($perl =~ qr/^5\.8\.8$/) |
|
2311
|
0 |
0 |
unless $^O eq 'bitrig' |
|
2314
|
0 |
0 |
unless $num < 5.019004 |
|
2315
|
0 |
0 |
unless ($num < 5.008) |
|
2333
|
0 |
0 |
if ($num < 5.008009) { } |
|
2367
|
0 |
0 |
if ($num < 5.008001) { } |
|
|
0 |
0 |
elsif ($num < 5.008007) { } |
|
|
0 |
0 |
elsif ($num < 5.008009) { } |
|
|
0 |
0 |
elsif ($num < 5.013) { } |
|
2441
|
0 |
0 |
unless $^O eq 'solaris' |
|
2444
|
0 |
0 |
unless $num < 5.018 |
|
2639
|
0 |
0 |
if ($perl =~ /^5\.(?:8|10)\./) { } |
|
|
0 |
0 |
elsif ($perl =~ /^5\.6\./) { } |
|
5799
|
0 |
0 |
unless $num < 5.021009 |
|
5800
|
0 |
0 |
if $num > 5.020002 and $num < 5.021 |
|
5801
|
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) { } |
|
6017
|
0 |
0 |
if -d '.git' |