| line |
true |
false |
branch |
|
41
|
0 |
52 |
if ($^O eq "darwin" and $^X eq "/usr/bin/perl")
|
|
48
|
0 |
52 |
if ($Is{'VMS'})
|
|
134
|
153 |
0 |
unless $self->needs_linking
|
|
140
|
0 |
0 |
if ($Is{'ApplCor'})
|
|
144
|
0 |
0 |
if (my $cpp = $self->{'CPPRUN'})
|
|
153
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
161
|
0 |
0 |
unless $Is{'OS2'} or $Is{'Win32'} or $Is{'Dos'}
|
|
162
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
165
|
0 |
0 |
$dbgout ? :
|
|
|
0 |
0 |
$m_o ? :
|
|
209
|
0 |
154 |
if $self->{'CFLAGS'}
|
|
210
|
153 |
1 |
unless $self->needs_linking
|
|
224
|
0 |
1 |
if ($ENV{'PERL_CORE'})
|
|
226
|
0 |
0 |
if (exists $ExtUtils::MM_Unix::Config{$x})
|
|
244
|
1 |
0 |
if ($libperl =~ /libperl(\w*)\Q$self->{'LIB_EXT'}\E/) { }
|
|
249
|
0 |
1 |
$map{$uc} ? :
|
|
251
|
0 |
1 |
if ($uc =~ /^D/)
|
|
258
|
0 |
1 |
if ($prog = $ExtUtils::MM_Unix::Config{$name})
|
|
260
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
275
|
0 |
0 |
if ($line =~ /(.*?)=\s*(.*)\s*$/) { }
|
|
277
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
284
|
0 |
1 |
if ($optdebug)
|
|
296
|
0 |
1 |
if ($self->{'POLLUTE'})
|
|
301
|
1 |
0 |
unless exists $cflags{$x}
|
|
302
|
0 |
0 |
$cflags{$x} =~ /^\s/ ? :
|
|
306
|
0 |
1 |
if ($ExtUtils::MM_Unix::Config{'usemymalloc'} and not $ExtUtils::MM_Unix::Config{'bincompat5005'} and not $ExtUtils::MM_Unix::Config{'ccflags'} =~ /-DPERL_POLLUTE_MALLOC\b/ and $self->{'PERL_MALLOC_OK'})
|
|
331
|
0 |
153 |
if $self->{'CONST_CCCMD'}
|
|
332
|
153 |
0 |
unless $self->needs_linking
|
|
361
|
0 |
3542 |
if $once_only{$key}
|
|
377
|
153 |
0 |
unless $self->needs_linking
|
|
387
|
0 |
0 |
unless defined $self->{$tmp}
|
|
394
|
0 |
0 |
unless $self->{$tmp}
|
|
444
|
466 |
13394 |
unless defined $self->{$macro}
|
|
450
|
308 |
13086 |
if $ExtUtils::MakeMaker::macro_dep{$macro}
|
|
473
|
308 |
1540 |
unless defined $self->{$macro}
|
|
490
|
0 |
153 |
if $Is{'ApplCor'} and $self->{'PERL_INC'} =~ m[^/System/Library/Perl/]
|
|
495
|
0 |
153 |
if $Is{'ApplCor'}
|
|
500
|
153 |
0 |
if -e $self->catfile($self->{'PERL_INC'}, "config.h") and not $Is{'ApplCor'}
|
|
542
|
0 |
0 |
unless defined $key and defined $val
|
|
635
|
154 |
1 |
unless $self->{'DISTNAME'}
|
|
654
|
0 |
96 |
if ($attribs{'SUFFIX'} and not $attribs{'SUFFIX'} =~ /^\./)
|
|
914
|
153 |
0 |
unless $self->has_link_code
|
|
916
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
930
|
0 |
0 |
if $self->{'XSMULTI'} and $d[0] eq "lib"
|
|
932
|
0 |
0 |
if $basename eq "\$(BASEEXT)"
|
|
962
|
153 |
0 |
unless $self->needs_linking
|
|
963
|
0 |
0 |
unless $self->has_link_code
|
|
967
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
972
|
0 |
0 |
if $d[0] eq "lib"
|
|
973
|
0 |
0 |
if $d[$#d] eq ""
|
|
978
|
0 |
0 |
if (defined &DynaLoader::mod2fname)
|
|
984
|
0 |
0 |
unless defined $objfile
|
|
986
|
0 |
0 |
unless defined $ldfrom
|
|
989
|
0 |
0 |
$dlsyms_ext ? :
|
|
994
|
0 |
0 |
$dlsyms_ext ? :
|
|
1013
|
0 |
0 |
$Is{'OS2'} ? :
|
|
1014
|
0 |
0 |
$Is{'OS2'} ? :
|
|
1028
|
0 |
0 |
if $Is{'OSF'} and $armaybe eq ":"
|
|
1040
|
0 |
0 |
if $exportlist ne "\$(EXPORT_LIST)"
|
|
1044
|
0 |
0 |
if ($armaybe ne ":")
|
|
1049
|
0 |
0 |
if $Is{'OSF'}
|
|
1053
|
0 |
0 |
if ($self->{'LD_RUN_PATH'})
|
|
1054
|
0 |
0 |
if ($Is{'IRIX'}) { }
|
|
|
0 |
0 |
elsif ($^O eq 'darwin') { }
|
|
1073
|
0 |
0 |
if ($Is{'NetBSD'} || $Is{'Interix'} || $Is{'Android'} and $ExtUtils::MM_Unix::Config{'useshrplib'} eq "true")
|
|
1078
|
0 |
0 |
if ($ExtUtils::MM_Unix::Config{'lddlflags'} =~ /-Wl,-R/) { }
|
|
|
0 |
0 |
elsif ($ExtUtils::MM_Unix::Config{'lddlflags'} =~ /-R/) { }
|
|
|
0 |
0 |
elsif ($Is{'Android'}) { }
|
|
1090
|
0 |
0 |
if ($self->{'LD_RUN_PATH'} ne "")
|
|
1135
|
0 |
99 |
if ($trace >= 2)
|
|
1146
|
99 |
0 |
unless ($Is{'BSD'})
|
|
1148
|
99 |
0 |
if (open STDERR_COPY, '>&STDERR') { }
|
|
1161
|
99 |
0 |
if ($self->file_name_is_absolute($name)) { }
|
|
|
0 |
0 |
elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { }
|
|
1169
|
0 |
99 |
$use_dir ? :
|
|
1170
|
0 |
99 |
unless defined $dir
|
|
1172
|
0 |
99 |
if $use_dir
|
|
1175
|
0 |
99 |
if $trace >= 2
|
|
1176
|
0 |
99 |
unless $self->maybe_command($abs)
|
|
1177
|
0 |
99 |
if $trace >= 2
|
|
1188
|
0 |
99 |
if ($Is{'BSD'}) { }
|
|
1191
|
99 |
0 |
if $stderr_duped
|
|
1195
|
99 |
0 |
if $stderr_duped
|
|
1199
|
99 |
0 |
if ($val =~ /^VER_OK/m) { }
|
|
|
0 |
0 |
elsif ($trace >= 2) { }
|
|
1200
|
0 |
99 |
if $trace
|
|
1227
|
0 |
6 |
unless open my $fixin, "<", $file
|
|
1230
|
0 |
6 |
unless $line =~ s/^\s*\#!\s*//
|
|
1233
|
1 |
5 |
unless defined $shb
|
|
1235
|
0 |
5 |
unless (open my $fixout, ">", "$file_new")
|
|
1249
|
0 |
5 |
unless (_rename($file, $file_bak))
|
|
1253
|
0 |
5 |
unless (_rename($file_new, $file))
|
|
1255
|
0 |
0 |
unless (_rename($file_bak, $file))
|
|
1264
|
0 |
6 |
if $ExtUtils::MM_Unix::Config{'eunicefix'} ne ":"
|
|
1273
|
0 |
20 |
if ($Is{'VMS'} and not basename($file) =~ /\./)
|
|
1292
|
0 |
6 |
if (defined $ENV{'PERL_MM_SHEBANG'} and $ENV{'PERL_MM_SHEBANG'} eq 'relocatable') { }
|
|
|
3 |
3 |
elsif ($cmd =~ /^perl(?:\z|[^a-z])/) { }
|
|
1296
|
3 |
0 |
if ($ExtUtils::MM_Unix::Config{'startperl'} =~ m[^\#!.*/perl]) { }
|
|
1311
|
3 |
9 |
if ($self->maybe_command($maybefile))
|
|
1312
|
0 |
3 |
if $ExtUtils::MM_Unix::Verbose and $interpreter
|
|
1323
|
3 |
0 |
if ($origcmd ne $interpreter and $self->file_name_is_absolute($origcmd))
|
|
1325
|
1 |
2 |
if ($self->maybe_command($origcmd) and grep {$_ eq $origdir;} @absdirs)
|
|
1328
|
1 |
0 |
if ($odev == $idev and $oino eq $iino)
|
|
1329
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose
|
|
1341
|
5 |
1 |
if ($interpreter) { }
|
|
1342
|
0 |
5 |
if $ExtUtils::MM_Unix::Verbose
|
|
1345
|
5 |
0 |
if ($does_shbang)
|
|
1347
|
3 |
2 |
if defined $arg
|
|
1352
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose
|
|
1404
|
614 |
159 |
if defined $self->{'HAS_LINK_CODE'}
|
|
1405
|
2 |
156 |
unless $self->{'C'}
|
|
|
2 |
156 |
if ($self->{'OBJECT'} or @{[] unless $self->{'C'};} or $self->{'MYEXTLIB'})
|
|
1430
|
0 |
155 |
$Is{'VMS'} ? :
|
|
1432
|
0 |
155 |
$Is{'VMS'} ? :
|
|
1435
|
0 |
155 |
if $Is{'VMS'}
|
|
1437
|
0 |
155 |
if (defined $self->{'XS'} and not defined $self->{'C'})
|
|
1445
|
0 |
1251 |
if $name =~ /\#/
|
|
1446
|
0 |
1251 |
if $name =~ /$distprefix/ and -d $name
|
|
1447
|
0 |
1251 |
if $Is{'VMS'}
|
|
1448
|
451 |
645 |
if $name eq $Curdir or $name eq $Updir or $ignore{$name}
|
|
1449
|
4 |
641 |
unless $self->libscan($name)
|
|
1450
|
298 |
343 |
if (-d $name) { }
|
|
|
0 |
343 |
elsif ($name =~ /\.xs\z/) { }
|
|
|
0 |
343 |
elsif ($name =~ /\.c(pp|xx|c)?\z/i) { }
|
|
|
0 |
343 |
elsif ($name =~ /\.h\z/i) { }
|
|
|
0 |
343 |
elsif ($name =~ /\.PL\z/) { }
|
|
|
0 |
343 |
elsif ($Is{'VMS'} || $Is{'Dos'} and $name =~ /[._]pl$/i) { }
|
|
|
0 |
343 |
elsif ($name =~ /\.(p[ml]|pod)\z/) { }
|
|
1451
|
0 |
298 |
if -l $name
|
|
1452
|
0 |
298 |
if $self->{'NORECURS'}
|
|
1453
|
58 |
240 |
if -f $self->catfile($name, "Makefile.PL")
|
|
1459
|
0 |
0 |
unless $name =~ /perlmain\.c/
|
|
1469
|
0 |
0 |
if ($txt =~ /Extracting \S+ \(with variable substitutions/) { }
|
|
1505
|
229 |
81 |
if ($$self{"${man}PODS"} or $$self{"INSTALL${man}DIR"} =~ /^(none|\s*)$/) { }
|
|
1519
|
2 |
308 |
if $installdirs eq "PERL"
|
|
1526
|
48 |
2557 |
if ($mandir =~ /^(?:man|cat)$_$/)
|
|
1541
|
42 |
0 |
if (open my $fh, '<', $file) { }
|
|
1543
|
22 |
189 |
if (/^=(?:head\d+|item|pod)\b/)
|
|
1567
|
1 |
39 |
if (exists $self->{'EXE_FILES'})
|
|
1569
|
0 |
1 |
unless $self->_has_pod($name)
|
|
1592
|
0 |
41 |
if ($name =~ /\.pod\z/) { }
|
|
|
41 |
0 |
elsif ($name =~ /\.p[ml]\z/) { }
|
|
1595
|
21 |
20 |
if ($self->_has_pod($name))
|
|
1607
|
0 |
21 |
if ($self->{'PERL_CORE'} and $name =~ /(config|setup).*\.pm/is or $name =~ /^README\.pod$/i)
|
|
1617
|
0 |
21 |
unless ($manpagename =~ s/^\W*($parentlibs_re)\W+//s)
|
|
1664
|
155 |
0 |
unless ($self->{'PMLIBDIRS'})
|
|
1665
|
0 |
155 |
if ($Is{'VMS'}) { }
|
|
1682
|
123 |
187 |
if -d $pmlibdir and not $dir{$pmlibdir}
|
|
1685
|
155 |
0 |
unless ($self->{'PMLIBPARENTDIRS'})
|
|
1689
|
1 |
154 |
if $self->{'PM'} and $self->{'ARGS'}{'PM'}
|
|
1691
|
122 |
32 |
if (@{$self->{'PMLIBDIRS'};})
|
|
1692
|
0 |
122 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
1696
|
244 |
122 |
if (-d $_)
|
|
1697
|
0 |
244 |
unless ($self->libscan($_))
|
|
1702
|
0 |
122 |
if /\#/
|
|
1703
|
0 |
122 |
if /~$/
|
|
1704
|
0 |
122 |
if /,v$/
|
|
1705
|
0 |
122 |
if /\.swp$/
|
|
1713
|
122 |
0 |
if ($striplibpath = $path) =~ s/^(\W*)($parentlibs_re)\W/$1/i
|
|
1718
|
0 |
122 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
1719
|
0 |
122 |
unless $inst
|
|
1720
|
0 |
122 |
if ($self->{'XSMULTI'} and $inst =~ /\.xs\z/) { }
|
|
1782
|
0 |
155 |
if (defined &DynaLoader::mod2fname)
|
|
1789
|
0 |
155 |
if (defined &DynaLoader::mod2fname) { }
|
|
1803
|
155 |
0 |
unless ($self->{'PERL_SRC'})
|
|
1807
|
0 |
0 |
if (-f $self->catfile($dir, "config_h.SH") and -f $self->catfile($dir, "perl.h") and -f $self->catfile($dir, "lib", "strict.pm"))
|
|
1818
|
0 |
155 |
if $self->{'PERL_CORE'} and not $self->{'PERL_SRC'}
|
|
1820
|
0 |
155 |
if ($self->{'PERL_SRC'}) { }
|
|
1825
|
0 |
0 |
$Is{'Win32'} ? :
|
|
1828
|
0 |
0 |
unless (-s $self->catfile($self->{'PERL_SRC'}, "cflags") or $Is{'VMS'} and -s $self->catfile($self->{'PERL_SRC'}, "vmsish.h") or $Is{'Win32'})
|
|
1859
|
0 |
0 |
unless (-f ($perl_h = $self->catfile($self->{'PERL_INC'}, "perl.h")) or $old)
|
|
1865
|
0 |
0 |
if -e $self->catfile($dir, "Config.pm")
|
|
1867
|
0 |
0 |
if ($lib)
|
|
1870
|
0 |
0 |
$Is{'Win32'} ? :
|
|
1872
|
0 |
0 |
if (-e $self->catfile($inc, "perl.h"))
|
|
1885
|
0 |
155 |
if ($Is{'Android'})
|
|
1910
|
0 |
155 |
if $self->{'CONFIG'} and ref $self->{'CONFIG'} ne "ARRAY"
|
|
1911
|
155 |
0 |
unless ref $self->{'CONFIG'}
|
|
1913
|
0 |
155 |
if $ExtUtils::MM_Unix::Config{'shellflags'}
|
|
1916
|
0 |
3565 |
if $once_only{$m}
|
|
1918
|
0 |
3565 |
unless exists $ExtUtils::MM_Unix::Config{$m}
|
|
1944
|
0 |
155 |
unless -f $self->catfile("$self->{'PERL_LIB'}", "strict.pm") or $self->{'NAME'} eq "ExtUtils::MakeMaker"
|
|
2023
|
0 |
459 |
if ($self->{$Lib} and not $self->{$Arch})
|
|
2028
|
0 |
0 |
unless (-d $self->{$Arch})
|
|
2029
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
2033
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
2066
|
1561 |
155 |
if defined $component
|
|
2073
|
0 |
156 |
$Is{'VMS'} ? :
|
|
|
0 |
156 |
unless $Is{'VMS'} ? $thisperl =~ /$ExtUtils::MM_Unix::Config{'exe_ext'}(;\d+)?$/i : $thisperl =~ /$ExtUtils::MM_Unix::Config{'exe_ext'}$/i
|
|
2077
|
0 |
156 |
if $self->{'PERL_CORE'}
|
|
2086
|
0 |
156 |
if ($self->{'PERL_CORE'}) { }
|
|
2103
|
156 |
0 |
if -x $stripped_perl
|
|
2104
|
0 |
0 |
unless $perl =~ s/(\s+\S+)$//
|
|
2108
|
0 |
156 |
if $has_mcr or $Is{'VMS'}
|
|
2113
|
0 |
0 |
if $Is{'VMS'} and defined $ExtUtils::MM_Unix::Config{'usevmsdebug'} and $ExtUtils::MM_Unix::Config{'usevmsdebug'} eq "define"
|
|
2118
|
99 |
57 |
unless ($self->{'FULLPERL'})
|
|
2124
|
0 |
156 |
if $Is{'VMS'}
|
|
2129
|
0 |
156 |
if $self->is_make_type("dmake")
|
|
2135
|
156 |
0 |
if ($self->file_name_is_absolute($self->{'ABSPERL'})) { }
|
|
2143
|
0 |
0 |
if $self->{'ABSPERL'} =~ /\s/
|
|
2145
|
0 |
0 |
if $has_mcr
|
|
2151
|
0 |
156 |
if $Is{'VMS'}
|
|
2156
|
0 |
156 |
if $self->is_make_type("dmake")
|
|
2159
|
91 |
65 |
unless exists $self->{'PERL_CORE'}
|
|
2160
|
99 |
57 |
unless defined $self->{'PERL_CORE'}
|
|
2164
|
0 |
0 |
$self->{'PERL_ARCHLIB'} && $self->{'PERL_LIB'} && $self->{'PERL_ARCHLIB'} ne $self->{'PERL_LIB'} ? :
|
|
|
0 |
156 |
$self->{'UNINSTALLED_PERL'} || $self->{'PERL_CORE'} ? :
|
|
2168
|
156 |
0 |
$self->{'INST_ARCHLIB'} ne $self->{'INST_LIB'} ? :
|
|
2175
|
0 |
468 |
if $lib_paths
|
|
2208
|
0 |
306 |
unless defined $self->{$macro}
|
|
2227
|
155 |
0 |
unless defined $self->{'PERM_DIR'}
|
|
2228
|
155 |
0 |
unless defined $self->{'PERM_RW'}
|
|
2229
|
155 |
0 |
unless defined $self->{'PERM_RWX'}
|
|
2247
|
0 |
155 |
if ($self->has_link_code) { }
|
|
2254
|
0 |
0 |
if ($self->{'XSMULTI'})
|
|
2260
|
0 |
0 |
if defined $d[0] and $d[0] eq "lib"
|
|
2261
|
0 |
0 |
if $d[$#d] eq ""
|
|
2269
|
0 |
0 |
if (defined &DynaLoader::mod2fname)
|
|
2329
|
96 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
2348
|
96 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
2366
|
96 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
2388
|
0 |
96 |
if $self->{'NO_PERLLOCAL'}
|
|
2424
|
96 |
0 |
unless $self->{'NO_PERLLOCAL'}
|
|
2452
|
152 |
1 |
unless $self->{'EXE_FILES'} and ref $self->{'EXE_FILES'} eq "ARRAY"
|
|
2454
|
0 |
1 |
unless @exefiles
|
|
2456
|
0 |
1 |
if $Is{'VMS'}
|
|
2464
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
2466
|
0 |
1 |
if $Is{'VMS'}
|
|
2513
|
153 |
0 |
unless defined $linktype
|
|
2514
|
0 |
153 |
if (defined $linktype and $linktype eq "")
|
|
2517
|
0 |
153 |
unless defined $linktype
|
|
2534
|
323 |
0 |
defined $dir ? :
|
|
|
24 |
299 |
unless opendir my $dh, defined $dir ? $dir : "."
|
|
2538
|
144 |
155 |
if defined $regex
|
|
2574
|
1 |
153 |
unless $perlinc
|
|
2580
|
1 |
153 |
unless $perlinc
|
|
2582
|
57 |
97 |
if $self->{'PARENT'}
|
|
2586
|
97 |
0 |
unless ($self->{'MAKEAPERL'})
|
|
2600
|
1 |
0 |
if ($arg =~ /(^.*?=)(.*['\s].*)/)
|
|
2614
|
0 |
0 |
if $ExtUtils::MM_Unix::Config{'useshrplib'} eq "true"
|
|
2626
|
0 |
0 |
unless $static
|
|
2629
|
0 |
0 |
unless $extra and ref $extra eq "ARRAY"
|
|
2631
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E\z/
|
|
2636
|
0 |
0 |
unless $perlinc
|
|
2654
|
0 |
0 |
if (defined $libperl)
|
|
2657
|
0 |
0 |
unless ($libperl and -f $lperl)
|
|
2659
|
0 |
0 |
if $self->{'UNINSTALLED_PERL'}
|
|
2665
|
0 |
0 |
unless (-f $libperl or -f $lperl)
|
|
2667
|
0 |
0 |
if ($Is{'SunOS'})
|
|
2670
|
0 |
0 |
if $Is{'SunOS4'}
|
|
2674
|
0 |
0 |
unless -f $lperl or defined $self->{'PERL_SRC'}
|
|
2682
|
0 |
0 |
$libperl ? :
|
|
2701
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
2714
|
0 |
0 |
$ExtUtils::MM_Unix::Config{'usedl'} ? :
|
|
2724
|
0 |
0 |
if defined &Dos::UseLFN and Dos::UseLFN() == 0
|
|
2766
|
0 |
0 |
if ($File::Find::name =~ m[/auto/share\z])
|
|
2774
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E$/
|
|
2776
|
0 |
0 |
unless -f "extralibs.ld"
|
|
2779
|
0 |
0 |
if /^libperl/ or /^perl\Q$self->{'LIB_EXT'}\E$/
|
|
2783
|
0 |
0 |
if /_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure"
|
|
2785
|
0 |
0 |
if (exists $self->{'INCLUDE_EXT'}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'EXCLUDE_EXT'}) { }
|
|
2795
|
0 |
0 |
if ($xx eq $incl)
|
|
2800
|
0 |
0 |
unless $found
|
|
2809
|
0 |
0 |
if $xx eq $excl
|
|
2820
|
0 |
0 |
if $File::Find::name =~ /\Q$installed_version\E\z/
|
|
2821
|
0 |
0 |
unless $self->xs_static_lib_is_xs($_)
|
|
2824
|
0 |
0 |
unless $searchdirs
|
|
2857
|
0 |
153 |
if $self->{'OBJECT'}
|
|
2859
|
0 |
153 |
$Is{'VMS'} ? :
|
|
2862
|
0 |
153 |
if (defined $::Cross::platform)
|
|
2894
|
104 |
93 |
if -x $file and not -d $file
|
|
2910
|
0 |
1660 |
if $caller =~ /^ExtUtils::MakeMaker::/
|
|
2912
|
1507 |
153 |
if defined $self->{'NEEDS_LINKING'}
|
|
2913
|
0 |
153 |
if ($self->has_link_code or $self->{'MAKEAPERL'})
|
|
2918
|
0 |
56 |
if ($self->{'CHILDREN'}{$child}->needs_linking)
|
|
2938
|
0 |
13 |
unless open my $fh, "<", $parsefile
|
|
2945
|
2 |
51 |
/^=cut/ ? :
|
|
|
17 |
53 |
/^=(?!cut)/ ? :
|
|
2946
|
18 |
52 |
unless $inpod
|
|
2949
|
1 |
51 |
if (/^=encoding\s*(.*)$/i)
|
|
2953
|
13 |
39 |
if (/^($package(?:\.pm)? \s+ -+ \s+)(.*)/x)
|
|
2957
|
34 |
5 |
unless $result
|
|
2959
|
3 |
2 |
if ($result and /^\s*$/ || /^\=/)
|
|
2966
|
1 |
12 |
if ($pod_encoding and not "$]" < 5.008 || !$ExtUtils::MM_Unix::Config{'useperlio'})
|
|
3005
|
0 |
155 |
unless open my $fh, "<", $parsefile
|
|
3008
|
0 |
355 |
/^=cut/ ? :
|
|
|
0 |
355 |
/^=(?!cut)/ ? :
|
|
3009
|
0 |
355 |
if $inpod or /^\s*#/
|
|
3011
|
2 |
353 |
if /^\s*(if|unless|elsif)/
|
|
3012
|
16 |
337 |
if (/^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (;|\{) /x) { }
|
|
|
130 |
207 |
elsif (/(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]/x) { }
|
|
3022
|
142 |
4 |
if defined $result
|
|
3026
|
3 |
152 |
if (defined $result and not $result =~ /^v?[\d_\.]+$/)
|
|
3029
|
1 |
2 |
if defined $normal
|
|
3031
|
142 |
13 |
if (defined $result)
|
|
3033
|
2 |
140 |
unless $result =~ /^v?[\d_\.]+$/ or eval {
|
|
3035
|
13 |
142 |
unless defined $result
|
|
3052
|
130 |
0 |
if $line =~ /^(.+)/s
|
|
3079
|
0 |
153 |
$Is{'VMS'} ? :
|
|
3086
|
457 |
461 |
unless defined $self->{$key}
|
|
3095
|
0 |
306 |
if defined $self->{$key}
|
|
3115
|
1 |
0 |
if -r $file and -f _
|
|
3132
|
0 |
153 |
if $self->{'PERL_SRC'}
|
|
3144
|
153 |
0 |
unless $self->needs_linking
|
|
3146
|
0 |
0 |
if ($self->{'OBJECT'})
|
|
3152
|
0 |
0 |
if %{$self->{'XS'};}
|
|
3209
|
5 |
148 |
ref $self->{'AUTHOR'} eq 'ARRAY' ? :
|
|
3223
|
5 |
148 |
if ($self->{'MIN_PERL_VERSION'})
|
|
3239
|
4 |
31 |
unless $name =~ /::/
|
|
3243
|
18 |
17 |
if $version
|
|
3253
|
153 |
0 |
if ("$]" >= "5.008")
|
|
3260
|
0 |
153 |
if ($self->{'PPM_INSTALL_SCRIPT'})
|
|
3261
|
0 |
0 |
if ($self->{'PPM_INSTALL_EXEC'}) { }
|
|
3271
|
0 |
153 |
if ($self->{'PPM_UNINSTALL_SCRIPT'})
|
|
3272
|
0 |
0 |
if ($self->{'PPM_UNINSTALL_EXEC'}) { }
|
|
3333
|
0 |
2221 |
if $sprefix =~ m[/$]
|
|
3335
|
0 |
2221 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3336
|
0 |
2221 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3338
|
14 |
2207 |
if ($self->{'ARGS'}{'PREFIX'} and not $path =~ s/^\Q$sprefix\E\b/$rprefix/s)
|
|
3342
|
0 |
14 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3343
|
0 |
14 |
if not $default and $ExtUtils::MM_Unix::Verbose >= 2
|
|
3345
|
14 |
0 |
if $default
|
|
3348
|
0 |
2221 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3363
|
0 |
153 |
unless $pl_files
|
|
3371
|
0 |
0 |
ref $targets eq 'ARRAY' ? :
|
|
|
0 |
0 |
ref $targets eq 'HASH' ? :
|
|
3374
|
0 |
0 |
if ($Is{'VMS'})
|
|
3386
|
0 |
0 |
if (defined $self->{'PM'}{$target}) { }
|
|
3396
|
0 |
0 |
if (ref $targets eq "HASH")
|
|
3399
|
0 |
0 |
ref $targets->{$target} ? :
|
|
3402
|
0 |
0 |
if ($Is{'VMS'})
|
|
3487
|
322 |
2066 |
unless defined $switches
|
|
3520
|
4182 |
8633 |
unless defined $opts->{'allow_variables'}
|
|
3526
|
4183 |
8632 |
$opts->{'allow_variables'} ? :
|
|
3554
|
154 |
608 |
unless (defined $self->{'_MAX_EXEC_LEN'})
|
|
3555
|
0 |
154 |
if (my $arg_max = eval {
|
|
3587
|
153 |
0 |
unless $self->has_link_code
|
|
3590
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
3594
|
0 |
0 |
if $d[0] eq "lib"
|
|
3636
|
0 |
0 |
if $self->{'PERL_SRC'} and $self->{'EXTRALIBS'}
|
|
3653
|
0 |
0 |
unless $self->{'MYEXTLIB'}
|
|
3666
|
0 |
0 |
if (exists $self->{'FULL_AR'} and -x $self->{'FULL_AR'}) { }
|
|
3693
|
0 |
153 |
if (@{$self->{'C'};})
|
|
3758
|
56 |
97 |
if (@m) { }
|
|
3780
|
0 |
153 |
if (not $tests and -d 't' and defined $attribs{'RECURSIVE_TEST_FILES'}) { }
|
|
|
113 |
40 |
elsif (not $tests and -d 't') { }
|
|
3787
|
0 |
153 |
if $self->is_make_type("nmake")
|
|
3790
|
153 |
0 |
$ExtUtils::MM_Unix::Config{'usedl'} ? :
|
|
3818
|
226 |
80 |
if ($tests or -f 'test.pl') { }
|
|
3823
|
226 |
226 |
$db eq 'db' ? :
|
|
3824
|
0 |
452 |
if ($linktype eq 'static' and $self->needs_linking) { }
|
|
3832
|
226 |
226 |
if ($db eq 'db') { }
|
|
3835
|
112 |
114 |
if -f "test.pl"
|
|
3837
|
226 |
0 |
if $tests
|
|
3886
|
153 |
0 |
unless $self->needs_linking
|
|
3892
|
0 |
0 |
if $self->{'PERL_CORE'}
|
|
3897
|
0 |
0 |
if (-r $self->catfile($xsdir, "xsubpp"))
|
|
3902
|
0 |
0 |
unless $foundxsubpp
|
|
3906
|
0 |
0 |
if ($self->{'TYPEMAPS'})
|
|
3908
|
0 |
0 |
if (not -f $typemap) { }
|
|
3912
|
0 |
0 |
if $Is{'VMS'}
|
|
3917
|
0 |
0 |
if -f "typemap"
|
|
3928
|
0 |
0 |
if (exists $self->{'XSOPT'})
|
|
3932
|
0 |
0 |
if ($Is{'VMS'} and $ExtUtils::MM_Unix::Config{'ldflags'} and $ExtUtils::MM_Unix::Config{'ldflags'} =~ m[/Debug]i and not exists $self->{'XSOPT'} && $self->{'XSOPT'} =~ /linenumbers/)
|
|
3942
|
0 |
0 |
unless defined $self->{'XSPROTOARG'}
|
|
3985
|
153 |
0 |
unless $self->{'SKIPHASH'}{'all'}
|
|
4000
|
0 |
153 |
unless $self->{'O_FILES'}
|
|
|
0 |
0 |
unless $self->{'H'}
|
|
|
0 |
153 |
if @{[] unless $self->{'O_FILES'};} and @{[] unless $self->{'H'};}
|
|
4033
|
153 |
0 |
unless $self->needs_linking
|
|
4049
|
0 |
0 |
unless $self->needs_linking
|
|
4068
|
153 |
0 |
unless $self->needs_linking
|
|
4069
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
4071
|
0 |
0 |
$dbgout ? :
|
|
4074
|
0 |
0 |
unless $self->is_make_type("dmake")
|
|
4080
|
0 |
0 |
if ($self->{'XSMULTI'})
|
|
4083
|
0 |
0 |
unless -f $pmfile
|
|
4102
|
0 |
0 |
if $Is{'ApplCor'}
|
|
4110
|
0 |
0 |
unless defined $value
|
|
4117
|
0 |
0 |
if $self->{'XSBUILD'}{$xstype}{$ext}{$varname}
|
|
4119
|
0 |
0 |
if $self->{'XSBUILD'}{$xstype}{'all'}{$varname}
|