| line |
true |
false |
branch |
|
163
|
0 |
1 |
if ($ENV{'PAR_CLEAN'}) |
|
169
|
0 |
0 |
-d $_ ? : |
|
174
|
0 |
0 |
if (-d $par_temp and $^O ne 'MSWin32') |
|
210
|
0 |
1 |
if defined &Internals::PAR::BOOT |
|
216
|
0 |
1 |
if (exists $ENV{'PAR_ARGV_0'} and $ENV{'PAR_ARGV_0'}) { } |
|
222
|
0 |
28 |
if /^PAR_ARGV_/ |
|
229
|
0 |
1 |
$^O =~ /^MSWin/ ? : |
|
|
0 |
1 |
$^O =~ /^(?:MSWin|OS2|cygwin)/ ? : |
|
|
0 |
1 |
$^O =~ /^MSWin|OS2/ ? : |
|
244
|
0 |
1 |
unless open _FH, '<', $progname |
|
250
|
1 |
0 |
unless $buf eq "\nPAR.pm\n" |
|
268
|
0 |
0 |
$fullname =~ s[^([a-f\d]{8})/][] ? : |
|
274
|
0 |
0 |
if (defined $ext and not $ext =~ /\.(?:pm|pl|ix|al)$/i) { } |
|
|
0 |
0 |
elsif ($fullname =~ m[^/?shlib/] and defined $ENV{'PAR_TEMP'}) { } |
|
276
|
0 |
0 |
if ($out) |
|
289
|
0 |
0 |
unless open my $out, '>', $filename |
|
309
|
0 |
0 |
if ref $module or not $module |
|
311
|
0 |
0 |
unless my $filename = delete $require_list{$module} || do {
my $key;
foreach $_ (keys %require_list) {
next unless /\Q$module\E$/;
$key = $_;
last;
} ;
delete $require_list{$key} if defined $key
} |
|
322
|
0 |
0 |
if ($ENV{'PAR_CLEAN'} and defined &IO::File::new) { } |
|
323
|
0 |
0 |
unless my $fh = 'IO::File'->new_tmpfile |
|
331
|
0 |
0 |
if ($out) |
|
336
|
0 |
0 |
unless open my $fh, '<', $name |
|
359
|
0 |
0 |
unless ($INC{$filename} or $filename =~ /BSDPAN/) |
|
361
|
0 |
0 |
if ($filename =~ /\.pmc?$/i) { } |
|
366
|
0 |
0 |
unless $filename =~ /sitecustomize\.pl$/ |
|
374
|
0 |
0 |
unless $buf eq "PK\cC\cD" |
|
385
|
1 |
0 |
unless $ENV{'PAR_DEBUG'} |
|
387
|
1 |
0 |
if (not $start_pos or $ARGV[0] eq '--par-options' and shift @ARGV) |
|
399
|
0 |
1 |
if (@ARGV and $ARGV[0] eq '--reuse') { } |
|
407
|
1 |
0 |
unless $ARGV[0] =~ /^-([AIMOBLbqpiusTv])(.*)/ |
|
409
|
0 |
0 |
if ($1 eq 'I') { } |
|
|
0 |
0 |
elsif ($1 eq 'M') { } |
|
|
0 |
0 |
elsif ($1 eq 'A') { } |
|
|
0 |
0 |
elsif ($1 eq 'O') { } |
|
|
0 |
0 |
elsif ($1 eq 'b') { } |
|
|
0 |
0 |
elsif ($1 eq 'B') { } |
|
|
0 |
0 |
elsif ($1 eq 'q') { } |
|
|
0 |
0 |
elsif ($1 eq 'L') { } |
|
|
0 |
0 |
elsif ($1 eq 'T') { } |
|
431
|
0 |
0 |
unless open $logfh, '>>', $2 |
|
439
|
0 |
0 |
if (my $cmd = $dist_cmd{$1}) |
|
443
|
0 |
0 |
unless @ARGV |
|
458
|
0 |
1 |
if ($out) |
|
469
|
0 |
0 |
if (defined $par) |
|
470
|
0 |
0 |
unless open my $fh, '<', $par |
|
475
|
0 |
0 |
unless $zip->readFromFileHandle($fh, $par) == &Archive::Zip::AZ_OK() |
|
481
|
0 |
0 |
if ($zip and my $meta = $zip->contents('META.yml')) |
|
491
|
0 |
0 |
if (defined $par) |
|
492
|
0 |
0 |
unless open PAR, '<', $par |
|
494
|
0 |
0 |
unless eq "PK\cC\cD" |
|
499
|
0 |
0 |
unless my $fh = 'IO::File'->new($out, &IO::File::O_CREAT() | &IO::File::O_WRONLY() | &IO::File::O_TRUNC(), 511) |
|
506
|
0 |
0 |
defined $data_pos ? : |
|
509
|
0 |
0 |
if (not $ENV{'PAR_VERBATIM'} and $loader =~ /^(?:#!|\@rem)/) |
|
514
|
0 |
0 |
unless my $val = $env{$key} |
|
515
|
0 |
0 |
if $val =~ /^['"]/ |
|
527
|
0 |
0 |
if ($bundle) |
|
537
|
0 |
0 |
unless $bundle ne 'site' |
|
560
|
0 |
0 |
if ($name = $PAR::Heavy::FullCache{$_}) { } |
|
|
0 |
0 |
elsif (m[^(\Q$dir\E/(.*[^Cc]))\Z]i) { } |
|
|
0 |
0 |
elsif (m[^/loader/[^/]+/(.*[^Cc])\Z]) { } |
|
569
|
0 |
0 |
if (my $ref = $PAR::Heavy::ModuleCache{$1}) { } |
|
|
0 |
0 |
elsif (-f "$dir/$1") { } |
|
580
|
0 |
0 |
unless defined $name and not $written{$name}++ |
|
581
|
0 |
0 |
if not ref $file and $file =~ /\.\Q$lib_ext\E$/ |
|
582
|
0 |
0 |
ref $file ? : |
|
588
|
0 |
0 |
if (ref $file) { } |
|
592
|
0 |
0 |
unless open FILE, '<', $file |
|
597
|
0 |
0 |
if not $ENV{'PAR_VERBATIM'} and $name =~ /\.(?:pm|ix|al)$/i |
|
616
|
0 |
0 |
if $zip |
|
619
|
0 |
0 |
if (not $cache_name and my $mtime = (stat $out)[9]) |
|
626
|
0 |
0 |
if ($sha_version eq '5.38' or $sha_version eq '5.39') { } |
|
627
|
0 |
0 |
if $ctx |
|
630
|
0 |
0 |
if ($ctx and open my $fh, "<$out") |
|
637
|
0 |
0 |
$ctx ? : |
|
654
|
1 |
0 |
unless defined $start_pos |
|
670
|
0 |
0 |
unless $fh->fdopen(fileno _FH, 'r') |
|
671
|
0 |
0 |
unless $zip->readFromFileHandle($fh, $progname) == &Archive::Zip::AZ_OK() |
|
679
|
0 |
0 |
if (defined $ENV{'PAR_TEMP'}) |
|
681
|
0 |
0 |
if $member->isDirectory |
|
683
|
0 |
0 |
unless $member_name =~ m[
^
/?shlib/
(?:$Config::Config{'version'}/)?
(?:$Config::Config{'archname'}/)?
([^/]+)
$
]x |
|
693
|
0 |
0 |
if (-f $dest_name and -s _ == $member->uncompressedSize) { } |
|
698
|
0 |
0 |
if $^O eq 'hpux' |
|
707
|
1 |
0 |
unless ($PAR::LibCache{$progname}) |
|
708
|
0 |
1 |
unless @ARGV |
|
724
|
0 |
0 |
unless -e $path |
|
767
|
0 |
1 |
if (defined $ENV{'PAR_TEMP'} and $ENV{'PAR_TEMP'} =~ /(.+)/) |
|
776
|
1 |
1 |
unless defined $path and -d $path and -w $path |
|
780
|
1 |
0 |
if defined $> |
|
782
|
0 |
1 |
if (defined &Win32::LoginName) { } |
|
|
1 |
0 |
elsif (defined $pwuid) { } |
|
795
|
1 |
0 |
if (not $ENV{'PAR_CLEAN'} and my $mtime = (stat $progname)[9]) { } |
|
799
|
0 |
1 |
if ($buf eq "\000CACHE") { } |
|
812
|
0 |
1 |
if ($sha_version eq '5.38' or $sha_version eq '5.39') { } |
|
813
|
0 |
0 |
if $ctx |
|
816
|
1 |
0 |
if ($ctx and open my $fh, "<$progname") |
|
823
|
1 |
0 |
$ctx ? : |
|
837
|
1 |
0 |
if $ENV{'PAR_TEMP'} and $ENV{'PAR_TEMP'} =~ /(.+)/ |
|
846
|
0 |
0 |
if ($ENV{'PAR_CLEAN'}) { } |
|
847
|
0 |
0 |
if -e $filename |
|
851
|
0 |
0 |
if -r $filename |
|
854
|
0 |
0 |
unless open $fh, '>', $filename |
|
861
|
0 |
1 |
if (defined $ENV{'PAR_PROGNAME'} and $ENV{'PAR_PROGNAME'} =~ /(.+)/) |
|
867
|
0 |
1 |
if ($ENV{'PAR_TEMP'} and index($progname, $ENV{'PAR_TEMP'}) >= 0) |
|
871
|
1 |
0 |
if (not $ENV{'PAR_PROGNAME'} or index($progname, $Config{'_delim'}) >= 0) |
|
872
|
1 |
0 |
if (open my $fh, '<', $progname) |
|
873
|
1 |
0 |
if -s $fh |
|
875
|
0 |
0 |
if (-s "$progname$Config{'_exe'}") |
|
882
|
0 |
0 |
if exists $ENV{'PAR_TEMP'} and $dir eq $ENV{'PAR_TEMP'} |
|
884
|
0 |
0 |
if -s "$dir$Config{'_delim'}$progname$Config{'_exe'}" |
|
886
|
0 |
0 |
if -s "$dir$Config{'_delim'}$progname" |
|
893
|
0 |
0 |
if (index($progname, $Config{'_delim'}) < 0) |
|
898
|
0 |
0 |
defined &Win32::GetCwd ? : |
|
|
0 |
0 |
defined &Cwd::getcwd ? : |
|
907
|
0 |
1 |
if ($ENV{'PAR_INITIALIZED'}++ == 1) { } |
|
917
|
0 |
4 |
if exists $ENV{'PAR_GLOBAL_' . $_} |
|
922
|
0 |
1 |
if ($ENV{'PAR_TEMP'}) { } |
|
|
1 |
0 |
elsif (not exists $ENV{'PAR_GLOBAL_CLEAN'}) { } |
|
927
|
0 |
1 |
if $value =~ /^PAR_CLEAN=(\S+)/ |
|
932
|
0 |
0 |
if $quiet |
|
933
|
0 |
0 |
if ($logfh) { } |
|
958
|
0 |
0 |
unless -e $progname |
|
962
|
0 |
0 |
if $@ =~ /^_TK_EXIT_\((\d+)\)/ |
|
963
|
0 |
0 |
if $@ |
|
967
|
0 |
0 |
if $@ |