| line |
true |
false |
branch |
|
89
|
0 |
3 |
$^O eq 'VMS' ? : |
|
90
|
0 |
3 |
$^O eq 'MSWin32' ? : |
|
91
|
0 |
3 |
$^O eq 'cygwin' ? : |
|
92
|
0 |
3 |
$^O eq 'MSWin32' || $^O eq 'cygwin' ? : |
|
116
|
0 |
0 |
unless $warned{$msg}++ |
|
137
|
14 |
20 |
if (-f $_[1] and -s _ == -s $_[0]) |
|
148
|
13 |
2 |
if (chmod $mode, $item) { } |
|
149
|
0 |
13 |
if $verbose > 1 |
|
152
|
0 |
2 |
if -e $item |
|
187
|
0 |
0 |
ref $target ? : |
|
194
|
0 |
0 |
unless defined $Has_Win32API_File |
|
196
|
0 |
0 |
unless ($Has_Win32API_File) |
|
204
|
0 |
0 |
if ($moan) { } |
|
208
|
0 |
0 |
unless ref $target |
|
212
|
0 |
0 |
unless ref $target |
|
214
|
0 |
0 |
if (Win32API::File::MoveFileEx($file, $target, $opts)) { } |
|
215
|
0 |
0 |
ref $target ? : |
|
223
|
0 |
0 |
if ($moan) { } |
|
271
|
0 |
7 |
if ($^O =~ /^(dos|os2|MSWin32|VMS)$/) |
|
276
|
7 |
0 |
if $unlink_count > 0 |
|
289
|
0 |
0 |
if (rename $file, $tmp) { } |
|
|
0 |
0 |
elsif ($installing) { } |
|
320
|
0 |
19 |
if ($ENV{'EU_INSTALL_IGNORE_SKIP'}) |
|
321
|
0 |
0 |
if $verbose > 2 |
|
325
|
19 |
0 |
unless (defined $skip) |
|
326
|
0 |
19 |
if $verbose > 2 |
|
329
|
19 |
19 |
unless $file |
|
330
|
0 |
19 |
if $verbose > 2 |
|
332
|
0 |
19 |
if (-e $file) |
|
338
|
0 |
19 |
if ($skip and not ref $skip) { } |
|
|
0 |
19 |
elsif (UNIVERSAL::isa($skip, 'ARRAY')) { } |
|
|
0 |
19 |
elsif ($verbose) { } |
|
339
|
0 |
0 |
if $verbose |
|
341
|
0 |
0 |
if (open my $fh, $skip) { } |
|
345
|
0 |
0 |
if /^\s*(?:#|$)/ |
|
346
|
0 |
0 |
if $verbose > 3 |
|
355
|
0 |
0 |
if $verbose > 2 |
|
358
|
0 |
0 |
if $verbose > 1 |
|
362
|
0 |
19 |
if $verbose > 3 |
|
377
|
3 |
23 |
unless (defined $has_posix) |
|
381
|
26 |
0 |
if ($has_posix) { } |
|
411
|
0 |
26 |
unless defined $dir and length $dir |
|
415
|
25 |
1 |
unless 'File::Spec'->file_name_is_absolute($dir) |
|
426
|
0 |
50 |
if defined $vol and length $vol |
|
429
|
0 |
50 |
if $dir eq $path |
|
430
|
24 |
26 |
unless (-e $dir) |
|
434
|
26 |
0 |
if (_have_write_access($dir)) { } |
|
463
|
0 |
0 |
if ($verbose and $verbose > 1 and not -d $dir) |
|
467
|
28 |
6 |
unless ($dry_run) |
|
469
|
0 |
28 |
unless eval {
do {
@created = File::Path::mkpath($dir, $show, $mode);
1
}
} |
|
475
|
10 |
18 |
if (@created) |
|
480
|
0 |
24 |
if (not $can) { } |
|
|
0 |
48 |
elsif ($show and $dry_run) { } |
|
481
|
0 |
0 |
$root ? : |
|
486
|
0 |
0 |
if ($dry_run) { } |
|
511
|
0 |
15 |
if ($verbose and $verbose > 1) |
|
514
|
13 |
2 |
if (not $dry_run) |
|
515
|
0 |
13 |
unless File::Copy::copy($from, $to) |
|
535
|
0 |
76 |
if (defined wantarray) |
|
538
|
0 |
76 |
unless chdir $dir |
|
661
|
12 |
7 |
if (@_ == 1 and eval {
do {
1 + @$from_to
}
}) |
|
664
|
0 |
12 |
unless $from_to = $opts{'from_to'} |
|
680
|
19 |
0 |
unless defined $always_copy |
|
694
|
14 |
5 |
if -f $tmpfile |
|
704
|
0 |
19 |
$^O eq 'MacOS' ? : |
|
719
|
0 |
16 |
if ($source eq $blib_lib and exists $from_to{$blib_arch} and &directory_not_empty($blib_arch)) |
|
727
|
0 |
19 |
unless -d $source |
|
734
|
57 |
19 |
unless -f _ |
|
737
|
0 |
19 |
if $origfile eq '.exists' |
|
744
|
0 |
0 |
if ($sourcefile =~ /$pat/) |
|
745
|
0 |
0 |
if $verbose > 1 |
|
756
|
7 |
12 |
unless -w $targetfile |
|
779
|
12 |
7 |
if ($diff) { } |
|
781
|
5 |
7 |
if (-f $targetfile) { } |
|
|
2 |
5 |
elsif (not -d $targetdir) { } |
|
782
|
0 |
5 |
if $verbose > 1 |
|
783
|
5 |
0 |
unless $dry_run |
|
794
|
0 |
12 |
if $verbose > 1 |
|
795
|
12 |
0 |
unless $dry_run > 1 |
|
798
|
0 |
12 |
$mode & 73 ? : |
|
799
|
0 |
12 |
if $realtarget ne $targetfile |
|
804
|
0 |
12 |
unless (eval {
do {
if (-f $targetfile) {
print "_unlink_or_rename($targetfile)\n" if $verbose > 1;
$targetfile = _unlink_or_rename($targetfile, 'tryhard', 'install') unless $dry_run;
}
elsif (not -d $targetdir) {
_mkpath($targetdir, 0, 493, $verbose, $dry_run);
} ;
print "Installing $targetfile\n";
_copy($sourcefile, $targetfile, $verbose, $dry_run);
print "utime($atime,$mtime,$targetfile)\n" if $verbose > 1;
utime $atime, $mtime + 0, $targetfile unless $dry_run > 1;
$mode = 292 | ($mode & 73 ? 73 : 0);
$mode = $mode | 146 if $realtarget ne $targetfile;
&_chmod($mode, $targetfile, $verbose);
$result->{'install'}{$targetfile} = $sourcefile;
1
}
}) |
|
810
|
0 |
7 |
if $verbose |
|
813
|
8 |
11 |
if ($uninstall_shadows) |
|
814
|
0 |
8 |
$realtarget ne $targetfile ? : |
|
824
|
17 |
0 |
if ($pack{'write'}) |
|
827
|
0 |
17 |
if $verbose |
|
828
|
15 |
2 |
unless $dry_run |
|
848
|
0 |
17 |
if ($MUST_REBOOT) { } |
|
|
0 |
17 |
elsif (defined $MUST_REBOOT & $verbose) { } |
|
875
|
0 |
34 |
if (defined $INSTALL_ROOT) { } |
|
884
|
0 |
36 |
if (defined $INSTALL_ROOT) { } |
|
925
|
0 |
0 |
if $_ eq '.exists' |
|
926
|
0 |
0 |
if (-f $_) |
|
958
|
0 |
0 |
unless @_ < 2 |
|
959
|
0 |
0 |
@_ ? : |
|
960
|
0 |
0 |
unless defined $FULLEXT |
|
969
|
0 |
0 |
if ($ExtUtils::Install::Config{'installhtmldir'}) |
|
985
|
0 |
0 |
&directory_not_empty($INST_ARCHLIB) ? : |
|
1010
|
0 |
0 |
unless -f $fil |
|
1018
|
0 |
0 |
if $verbose |
|
1019
|
0 |
0 |
unless $dry_run |
|
1021
|
0 |
0 |
if $verbose |
|
1022
|
0 |
0 |
unless $dry_run |
|
1053
|
8 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
1066
|
2 |
62 |
if $canonpath eq $Curdir |
|
1067
|
18 |
44 |
if $seen_dir{$canonpath}++ |
|
1069
|
34 |
10 |
unless -f $targetfile |
|
1076
|
0 |
10 |
if $diff and $verbose > 1 |
|
1078
|
4 |
6 |
if (not $diff or $targetfile eq $ignore) |
|
1082
|
0 |
6 |
if ($dry_run) { } |
|
1084
|
0 |
0 |
if ($verbose) |
|
1094
|
0 |
6 |
if $verbose |
|
1096
|
0 |
2 |
if $ExtUtils::Install::Testing and ucase('File::Spec'->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile) |
|
1102
|
4 |
2 |
unless (eval {
do {
die 'Fake die for testing' if $ExtUtils::Install::Testing and ucase('File::Spec'->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile);
forceunlink($targetfile, 'tryhard');
$results->{'uninstall'}{$targetfile} = $filepath;
1
}
}) |
|
1104
|
2 |
2 |
if ($seen_ours) { } |
|
1127
|
0 |
0 |
unless open CMD, "|$cmd >$dest" |
|
1128
|
0 |
0 |
unless open SRC, $src |
|
1135
|
0 |
0 |
unless close CMD |
|
1164
|
5 |
1 |
if defined $autodir |
|
1166
|
0 |
3 |
if (-f $to and -s $from == -s $to and -M $to < -M $from) |
|
1167
|
0 |
0 |
unless $INSTALL_QUIET |
|
1179
|
3 |
3 |
unless ($need_filtering or _compare($from, $to)) |
|
1180
|
3 |
0 |
unless $INSTALL_QUIET |
|
1183
|
0 |
3 |
if (-f $to) { } |
|
1188
|
3 |
0 |
unless ($dirs{$dirname}++) |
|
1192
|
0 |
3 |
if ($need_filtering) { } |
|
1197
|
3 |
0 |
unless $INSTALL_QUIET |
|
1201
|
0 |
3 |
$mode & 73 ? : |
|
1202
|
0 |
3 |
unless $from =~ /\.pm$/ |
|
1203
|
3 |
0 |
if defined $autodir |
|
1222
|
0 |
3 |
if defined *AutoSplit::IN{'IO'} |
|
1238
|
0 |
0 |
unless (defined $INSTALL_ROOT) |
|
1242
|
0 |
0 |
@{$self->{$file};} > 1 ? : |
|
1249
|
0 |
0 |
$i > 1 ? : |
|
1251
|
0 |
0 |
_invokant() eq 'ExtUtils::MakeMaker' ? : |
|
1279
|
0 |
0 |
if ($top =~ /^Build/i or exists $INC{'Module/Build.pm'}) { } |