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' |