| line |
true |
false |
branch |
|
42
|
0 |
52 |
if ($^O eq "darwin")
|
|
44
|
0 |
0 |
if ($^X eq "/usr/bin/perl")
|
|
52
|
0 |
52 |
if ($Is{'VMS'})
|
|
138
|
154 |
0 |
unless $self->needs_linking
|
|
144
|
0 |
0 |
if ($Is{'ApplCor'})
|
|
148
|
0 |
0 |
if (my $cpp = $self->{'CPPRUN'})
|
|
157
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
165
|
0 |
0 |
unless $Is{'OS2'} or $Is{'Win32'} or $Is{'Dos'}
|
|
166
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
169
|
0 |
0 |
$dbgout ? :
|
|
|
0 |
0 |
$m_o ? :
|
|
213
|
0 |
155 |
if $self->{'CFLAGS'}
|
|
214
|
154 |
1 |
unless $self->needs_linking
|
|
228
|
0 |
1 |
if ($ENV{'PERL_CORE'})
|
|
230
|
0 |
0 |
if (exists $ExtUtils::MM_Unix::Config{$x})
|
|
248
|
1 |
0 |
if ($libperl =~ /libperl(\w*)\Q$self->{'LIB_EXT'}\E/) { }
|
|
253
|
0 |
1 |
$map{$uc} ? :
|
|
255
|
0 |
1 |
if ($uc =~ /^D/)
|
|
262
|
0 |
1 |
if ($prog = $ExtUtils::MM_Unix::Config{$name})
|
|
264
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
279
|
0 |
0 |
if ($line =~ /(.*?)=\s*(.*)\s*$/) { }
|
|
281
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
288
|
0 |
1 |
if ($optdebug)
|
|
300
|
0 |
1 |
if ($self->{'POLLUTE'})
|
|
305
|
1 |
0 |
unless exists $cflags{$x}
|
|
306
|
0 |
0 |
$cflags{$x} =~ /^\s/ ? :
|
|
310
|
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'})
|
|
335
|
0 |
154 |
if $self->{'CONST_CCCMD'}
|
|
336
|
154 |
0 |
unless $self->needs_linking
|
|
365
|
0 |
3565 |
if $once_only{$key}
|
|
381
|
154 |
0 |
unless $self->needs_linking
|
|
391
|
0 |
0 |
unless defined $self->{$tmp}
|
|
398
|
0 |
0 |
unless $self->{$tmp}
|
|
448
|
469 |
13481 |
unless defined $self->{$macro}
|
|
454
|
310 |
13171 |
if $ExtUtils::MakeMaker::macro_dep{$macro}
|
|
477
|
310 |
1550 |
unless defined $self->{$macro}
|
|
494
|
0 |
154 |
if $Is{'ApplCor'} and $self->{'PERL_INC'} =~ m[^/System/Library/Perl/]
|
|
499
|
0 |
154 |
if $Is{'ApplCor'}
|
|
504
|
154 |
0 |
if -e $self->catfile($self->{'PERL_INC'}, "config.h") and not $Is{'ApplCor'}
|
|
546
|
0 |
0 |
unless defined $key and defined $val
|
|
639
|
155 |
1 |
unless $self->{'DISTNAME'}
|
|
658
|
0 |
97 |
if ($attribs{'SUFFIX'} and not $attribs{'SUFFIX'} =~ /^\./)
|
|
918
|
154 |
0 |
unless $self->has_link_code
|
|
920
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
934
|
0 |
0 |
if $self->{'XSMULTI'} and $d[0] eq "lib"
|
|
936
|
0 |
0 |
if $basename eq "\$(BASEEXT)"
|
|
966
|
154 |
0 |
unless $self->needs_linking
|
|
967
|
0 |
0 |
unless $self->has_link_code
|
|
971
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
976
|
0 |
0 |
if $d[0] eq "lib"
|
|
977
|
0 |
0 |
if $d[$#d] eq ""
|
|
982
|
0 |
0 |
if (defined &DynaLoader::mod2fname)
|
|
988
|
0 |
0 |
unless defined $objfile
|
|
990
|
0 |
0 |
unless defined $ldfrom
|
|
993
|
0 |
0 |
$dlsyms_ext ? :
|
|
998
|
0 |
0 |
$dlsyms_ext ? :
|
|
1017
|
0 |
0 |
$Is{'OS2'} ? :
|
|
1018
|
0 |
0 |
$Is{'OS2'} ? :
|
|
1032
|
0 |
0 |
if $Is{'OSF'} and $armaybe eq ":"
|
|
1044
|
0 |
0 |
if $exportlist ne "\$(EXPORT_LIST)"
|
|
1048
|
0 |
0 |
if ($armaybe ne ":")
|
|
1053
|
0 |
0 |
if $Is{'OSF'}
|
|
1057
|
0 |
0 |
if ($self->{'LD_RUN_PATH'})
|
|
1058
|
0 |
0 |
if ($Is{'IRIX'}) { }
|
|
|
0 |
0 |
elsif ($^O eq 'darwin' and $Is{'AppleRPath'}) { }
|
|
1077
|
0 |
0 |
if ($Is{'NetBSD'} || $Is{'Interix'} || $Is{'Android'} and $ExtUtils::MM_Unix::Config{'useshrplib'} eq "true")
|
|
1082
|
0 |
0 |
if ($ExtUtils::MM_Unix::Config{'lddlflags'} =~ /-Wl,-R/) { }
|
|
|
0 |
0 |
elsif ($ExtUtils::MM_Unix::Config{'lddlflags'} =~ /-R/) { }
|
|
|
0 |
0 |
elsif ($Is{'Android'}) { }
|
|
1094
|
0 |
0 |
if ($self->{'LD_RUN_PATH'} ne "")
|
|
1139
|
0 |
100 |
if ($trace >= 2)
|
|
1150
|
100 |
0 |
unless ($Is{'BSD'})
|
|
1152
|
100 |
0 |
if (open STDERR_COPY, '>&STDERR') { }
|
|
1165
|
100 |
0 |
if ($self->file_name_is_absolute($name)) { }
|
|
|
0 |
0 |
elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { }
|
|
1173
|
0 |
100 |
$use_dir ? :
|
|
1174
|
0 |
100 |
unless defined $dir
|
|
1176
|
0 |
100 |
if $use_dir
|
|
1179
|
0 |
100 |
if $trace >= 2
|
|
1180
|
0 |
100 |
unless $self->maybe_command($abs)
|
|
1181
|
0 |
100 |
if $trace >= 2
|
|
1192
|
0 |
100 |
if ($Is{'BSD'}) { }
|
|
1195
|
100 |
0 |
if $stderr_duped
|
|
1199
|
100 |
0 |
if $stderr_duped
|
|
1203
|
100 |
0 |
if ($val =~ /^VER_OK/m) { }
|
|
|
0 |
0 |
elsif ($trace >= 2) { }
|
|
1204
|
0 |
100 |
if $trace
|
|
1231
|
0 |
6 |
unless open my $fixin, "<", $file
|
|
1234
|
0 |
6 |
unless $line =~ s/^\s*\#!\s*//
|
|
1237
|
1 |
5 |
unless defined $shb
|
|
1239
|
0 |
5 |
unless (open my $fixout, ">", "$file_new")
|
|
1253
|
0 |
5 |
unless (_rename($file, $file_bak))
|
|
1257
|
0 |
5 |
unless (_rename($file_new, $file))
|
|
1259
|
0 |
0 |
unless (_rename($file_bak, $file))
|
|
1268
|
0 |
6 |
if $ExtUtils::MM_Unix::Config{'eunicefix'} ne ":"
|
|
1277
|
0 |
20 |
if ($Is{'VMS'} and not basename($file) =~ /\./)
|
|
1296
|
0 |
6 |
if (defined $ENV{'PERL_MM_SHEBANG'} and $ENV{'PERL_MM_SHEBANG'} eq 'relocatable') { }
|
|
|
3 |
3 |
elsif ($cmd =~ /^perl(?:\z|[^a-z])/) { }
|
|
1300
|
3 |
0 |
if ($ExtUtils::MM_Unix::Config{'startperl'} =~ m[^\#!.*/perl]) { }
|
|
1315
|
3 |
9 |
if ($self->maybe_command($maybefile))
|
|
1316
|
0 |
3 |
if $ExtUtils::MM_Unix::Verbose and $interpreter
|
|
1327
|
3 |
0 |
if ($origcmd ne $interpreter and $self->file_name_is_absolute($origcmd))
|
|
1329
|
1 |
2 |
if ($self->maybe_command($origcmd) and grep {$_ eq $origdir;} @absdirs)
|
|
1332
|
1 |
0 |
if ($odev == $idev and $oino eq $iino)
|
|
1333
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose
|
|
1345
|
5 |
1 |
if ($interpreter) { }
|
|
1346
|
0 |
5 |
if $ExtUtils::MM_Unix::Verbose
|
|
1349
|
5 |
0 |
if ($does_shbang)
|
|
1351
|
3 |
2 |
if defined $arg
|
|
1356
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose
|
|
1408
|
618 |
160 |
if defined $self->{'HAS_LINK_CODE'}
|
|
1409
|
2 |
157 |
unless $self->{'C'}
|
|
|
2 |
157 |
if ($self->{'OBJECT'} or @{[] unless $self->{'C'};} or $self->{'MYEXTLIB'})
|
|
1434
|
0 |
156 |
$Is{'VMS'} ? :
|
|
1436
|
0 |
156 |
$Is{'VMS'} ? :
|
|
1439
|
0 |
156 |
if $Is{'VMS'}
|
|
1441
|
0 |
156 |
if (defined $self->{'XS'} and not defined $self->{'C'})
|
|
1449
|
0 |
1258 |
if $name =~ /\#/
|
|
1450
|
0 |
1258 |
if $name =~ /$distprefix/ and -d $name
|
|
1451
|
0 |
1258 |
if $Is{'VMS'}
|
|
1452
|
453 |
649 |
if $name eq $Curdir or $name eq $Updir or $ignore{$name}
|
|
1453
|
4 |
645 |
unless $self->libscan($name)
|
|
1454
|
299 |
346 |
if (-d $name) { }
|
|
|
0 |
346 |
elsif ($name =~ /\.xs\z/) { }
|
|
|
0 |
346 |
elsif ($name =~ /\.c(pp|xx|c)?\z/i) { }
|
|
|
0 |
346 |
elsif ($name =~ /\.h\z/i) { }
|
|
|
0 |
346 |
elsif ($name =~ /\.PL\z/) { }
|
|
|
0 |
346 |
elsif ($Is{'VMS'} || $Is{'Dos'} and $name =~ /[._]pl$/i) { }
|
|
|
0 |
346 |
elsif ($name =~ /\.(p[ml]|pod)\z/) { }
|
|
1455
|
0 |
299 |
if -l $name
|
|
1456
|
0 |
299 |
if $self->{'NORECURS'}
|
|
1457
|
58 |
241 |
if -f $self->catfile($name, "Makefile.PL")
|
|
1463
|
0 |
0 |
unless $name =~ /perlmain\.c/
|
|
1473
|
0 |
0 |
if ($txt =~ /Extracting \S+ \(with variable substitutions/) { }
|
|
1509
|
231 |
81 |
if ($$self{"${man}PODS"} or $$self{"INSTALL${man}DIR"} =~ /^(none|\s*)$/) { }
|
|
1523
|
2 |
310 |
if $installdirs eq "PERL"
|
|
1530
|
48 |
2575 |
if ($mandir =~ /^(?:man|cat)$_$/)
|
|
1545
|
42 |
0 |
if (open my $fh, '<', $file) { }
|
|
1547
|
22 |
189 |
if (/^=(?:head\d+|item|pod)\b/)
|
|
1571
|
1 |
39 |
if (exists $self->{'EXE_FILES'})
|
|
1573
|
0 |
1 |
unless $self->_has_pod($name)
|
|
1596
|
0 |
41 |
if ($name =~ /\.pod\z/) { }
|
|
|
41 |
0 |
elsif ($name =~ /\.p[ml]\z/) { }
|
|
1599
|
21 |
20 |
if ($self->_has_pod($name))
|
|
1611
|
0 |
21 |
if ($self->{'PERL_CORE'} and $name =~ /(config|setup).*\.pm/is or $name =~ /^README\.pod$/i)
|
|
1621
|
0 |
21 |
unless ($manpagename =~ s/^\W*($parentlibs_re)\W+//s)
|
|
1668
|
156 |
0 |
unless ($self->{'PMLIBDIRS'})
|
|
1669
|
0 |
156 |
if ($Is{'VMS'}) { }
|
|
1686
|
124 |
188 |
if -d $pmlibdir and not $dir{$pmlibdir}
|
|
1689
|
156 |
0 |
unless ($self->{'PMLIBPARENTDIRS'})
|
|
1693
|
1 |
155 |
if $self->{'PM'} and $self->{'ARGS'}{'PM'}
|
|
1695
|
123 |
32 |
if (@{$self->{'PMLIBDIRS'};})
|
|
1696
|
0 |
123 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
1700
|
246 |
123 |
if (-d $_)
|
|
1701
|
0 |
246 |
unless ($self->libscan($_))
|
|
1706
|
0 |
123 |
if /\#/
|
|
1707
|
0 |
123 |
if /~$/
|
|
1708
|
0 |
123 |
if /,v$/
|
|
1709
|
0 |
123 |
if /\.swp$/
|
|
1717
|
123 |
0 |
if ($striplibpath = $path) =~ s/^(\W*)($parentlibs_re)\W/$1/i
|
|
1722
|
0 |
123 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
1723
|
0 |
123 |
unless $inst
|
|
1724
|
0 |
123 |
if ($self->{'XSMULTI'} and $inst =~ /\.xs\z/) { }
|
|
1786
|
0 |
156 |
if (defined &DynaLoader::mod2fname)
|
|
1793
|
0 |
156 |
if (defined &DynaLoader::mod2fname) { }
|
|
1807
|
156 |
0 |
unless ($self->{'PERL_SRC'})
|
|
1811
|
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"))
|
|
1822
|
0 |
156 |
if $self->{'PERL_CORE'} and not $self->{'PERL_SRC'}
|
|
1824
|
0 |
156 |
if ($self->{'PERL_SRC'}) { }
|
|
1829
|
0 |
0 |
$Is{'Win32'} ? :
|
|
1832
|
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'})
|
|
1863
|
0 |
0 |
unless (-f ($perl_h = $self->catfile($self->{'PERL_INC'}, "perl.h")) or $old)
|
|
1869
|
0 |
0 |
if -e $self->catfile($dir, "Config.pm")
|
|
1871
|
0 |
0 |
if ($lib)
|
|
1874
|
0 |
0 |
$Is{'Win32'} ? :
|
|
1876
|
0 |
0 |
if (-e $self->catfile($inc, "perl.h"))
|
|
1889
|
0 |
156 |
if ($Is{'Android'})
|
|
1914
|
0 |
156 |
if $self->{'CONFIG'} and ref $self->{'CONFIG'} ne "ARRAY"
|
|
1915
|
156 |
0 |
unless ref $self->{'CONFIG'}
|
|
1917
|
0 |
156 |
if $ExtUtils::MM_Unix::Config{'shellflags'}
|
|
1920
|
0 |
3588 |
if $once_only{$m}
|
|
1922
|
0 |
3588 |
unless exists $ExtUtils::MM_Unix::Config{$m}
|
|
1948
|
0 |
156 |
unless -f $self->catfile("$self->{'PERL_LIB'}", "strict.pm") or $self->{'NAME'} eq "ExtUtils::MakeMaker"
|
|
2027
|
0 |
462 |
if ($self->{$Lib} and not $self->{$Arch})
|
|
2032
|
0 |
0 |
unless (-d $self->{$Arch})
|
|
2033
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
2037
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose
|
|
2070
|
1571 |
156 |
if defined $component
|
|
2077
|
0 |
157 |
$Is{'VMS'} ? :
|
|
|
0 |
157 |
unless $Is{'VMS'} ? $thisperl =~ /$ExtUtils::MM_Unix::Config{'exe_ext'}(;\d+)?$/i : $thisperl =~ /$ExtUtils::MM_Unix::Config{'exe_ext'}$/i
|
|
2081
|
0 |
157 |
if $self->{'PERL_CORE'}
|
|
2090
|
0 |
157 |
if ($self->{'PERL_CORE'}) { }
|
|
2107
|
157 |
0 |
if -x $stripped_perl
|
|
2108
|
0 |
0 |
unless $perl =~ s/(\s+\S+)$//
|
|
2112
|
0 |
157 |
if $has_mcr or $Is{'VMS'}
|
|
2117
|
0 |
0 |
if $Is{'VMS'} and defined $ExtUtils::MM_Unix::Config{'usevmsdebug'} and $ExtUtils::MM_Unix::Config{'usevmsdebug'} eq "define"
|
|
2122
|
100 |
57 |
unless ($self->{'FULLPERL'})
|
|
2128
|
0 |
157 |
if $Is{'VMS'}
|
|
2133
|
0 |
157 |
if $self->is_make_type("dmake")
|
|
2139
|
157 |
0 |
if ($self->file_name_is_absolute($self->{'ABSPERL'})) { }
|
|
2147
|
0 |
0 |
if $self->{'ABSPERL'} =~ /\s/
|
|
2149
|
0 |
0 |
if $has_mcr
|
|
2155
|
0 |
157 |
if $Is{'VMS'}
|
|
2160
|
0 |
157 |
if $self->is_make_type("dmake")
|
|
2163
|
92 |
65 |
unless exists $self->{'PERL_CORE'}
|
|
2164
|
100 |
57 |
unless defined $self->{'PERL_CORE'}
|
|
2168
|
0 |
0 |
$self->{'PERL_ARCHLIB'} && $self->{'PERL_LIB'} && $self->{'PERL_ARCHLIB'} ne $self->{'PERL_LIB'} ? :
|
|
|
0 |
157 |
$self->{'UNINSTALLED_PERL'} || $self->{'PERL_CORE'} ? :
|
|
2172
|
157 |
0 |
$self->{'INST_ARCHLIB'} ne $self->{'INST_LIB'} ? :
|
|
2179
|
0 |
471 |
if $lib_paths
|
|
2212
|
0 |
308 |
unless defined $self->{$macro}
|
|
2231
|
156 |
0 |
unless defined $self->{'PERM_DIR'}
|
|
2232
|
156 |
0 |
unless defined $self->{'PERM_RW'}
|
|
2233
|
156 |
0 |
unless defined $self->{'PERM_RWX'}
|
|
2251
|
0 |
156 |
if ($self->has_link_code) { }
|
|
2258
|
0 |
0 |
if ($self->{'XSMULTI'})
|
|
2264
|
0 |
0 |
if defined $d[0] and $d[0] eq "lib"
|
|
2265
|
0 |
0 |
if $d[$#d] eq ""
|
|
2273
|
0 |
0 |
if (defined &DynaLoader::mod2fname)
|
|
2333
|
97 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
2352
|
97 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
2370
|
97 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
2392
|
0 |
97 |
if $self->{'NO_PERLLOCAL'}
|
|
2428
|
97 |
0 |
unless $self->{'NO_PERLLOCAL'}
|
|
2456
|
153 |
1 |
unless $self->{'EXE_FILES'} and ref $self->{'EXE_FILES'} eq "ARRAY"
|
|
2458
|
0 |
1 |
unless @exefiles
|
|
2460
|
0 |
1 |
if $Is{'VMS'}
|
|
2468
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
2470
|
0 |
1 |
if $Is{'VMS'}
|
|
2517
|
154 |
0 |
unless defined $linktype
|
|
2518
|
0 |
154 |
if (defined $linktype and $linktype eq "")
|
|
2521
|
0 |
154 |
unless defined $linktype
|
|
2538
|
300 |
0 |
defined $dir ? :
|
|
|
0 |
300 |
unless opendir my $dh, defined $dir ? $dir : "."
|
|
2542
|
144 |
156 |
if defined $regex
|
|
2578
|
1 |
154 |
unless $perlinc
|
|
2584
|
1 |
154 |
unless $perlinc
|
|
2586
|
57 |
98 |
if $self->{'PARENT'}
|
|
2590
|
98 |
0 |
unless ($self->{'MAKEAPERL'})
|
|
2604
|
1 |
0 |
if ($arg =~ /(^.*?=)(.*['\s].*)/)
|
|
2618
|
0 |
0 |
if $ExtUtils::MM_Unix::Config{'useshrplib'} eq "true"
|
|
2630
|
0 |
0 |
unless $static
|
|
2633
|
0 |
0 |
unless $extra and ref $extra eq "ARRAY"
|
|
2635
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E\z/
|
|
2640
|
0 |
0 |
unless $perlinc
|
|
2658
|
0 |
0 |
if (defined $libperl)
|
|
2661
|
0 |
0 |
unless ($libperl and -f $lperl)
|
|
2663
|
0 |
0 |
if $self->{'UNINSTALLED_PERL'}
|
|
2669
|
0 |
0 |
unless (-f $libperl or -f $lperl)
|
|
2671
|
0 |
0 |
if ($Is{'SunOS'})
|
|
2674
|
0 |
0 |
if $Is{'SunOS4'}
|
|
2678
|
0 |
0 |
unless -f $lperl or defined $self->{'PERL_SRC'}
|
|
2686
|
0 |
0 |
$libperl ? :
|
|
2705
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
2718
|
0 |
0 |
$ExtUtils::MM_Unix::Config{'usedl'} ? :
|
|
2728
|
0 |
0 |
if defined &Dos::UseLFN and Dos::UseLFN() == 0
|
|
2770
|
0 |
0 |
if ($File::Find::name =~ m[/auto/share\z])
|
|
2778
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E$/
|
|
2780
|
0 |
0 |
unless -f "extralibs.ld"
|
|
2783
|
0 |
0 |
if /^libperl/ or /^perl\Q$self->{'LIB_EXT'}\E$/
|
|
2787
|
0 |
0 |
if /_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure"
|
|
2789
|
0 |
0 |
if (exists $self->{'INCLUDE_EXT'}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'EXCLUDE_EXT'}) { }
|
|
2799
|
0 |
0 |
if ($xx eq $incl)
|
|
2804
|
0 |
0 |
unless $found
|
|
2813
|
0 |
0 |
if $xx eq $excl
|
|
2824
|
0 |
0 |
if $File::Find::name =~ /\Q$installed_version\E\z/
|
|
2825
|
0 |
0 |
unless $self->xs_static_lib_is_xs($_)
|
|
2828
|
0 |
0 |
unless $searchdirs
|
|
2861
|
0 |
154 |
if $self->{'OBJECT'}
|
|
2863
|
0 |
154 |
$Is{'VMS'} ? :
|
|
2866
|
0 |
154 |
if (defined $::Cross::platform)
|
|
2898
|
105 |
93 |
if -x $file and not -d $file
|
|
2914
|
0 |
1669 |
if $caller =~ /^ExtUtils::MakeMaker::/
|
|
2916
|
1515 |
154 |
if defined $self->{'NEEDS_LINKING'}
|
|
2917
|
0 |
154 |
if ($self->has_link_code or $self->{'MAKEAPERL'})
|
|
2922
|
0 |
56 |
if ($self->{'CHILDREN'}{$child}->needs_linking)
|
|
2942
|
0 |
13 |
unless open my $fh, "<", $parsefile
|
|
2949
|
2 |
51 |
/^=cut/ ? :
|
|
|
17 |
53 |
/^=(?!cut)/ ? :
|
|
2950
|
18 |
52 |
unless $inpod
|
|
2953
|
1 |
51 |
if (/^=encoding\s*(.*)$/i)
|
|
2957
|
13 |
39 |
if (/^($package(?:\.pm)? \s+ -+ \s+)(.*)/x)
|
|
2961
|
34 |
5 |
unless $result
|
|
2963
|
3 |
2 |
if ($result and /^\s*$/ || /^\=/)
|
|
2970
|
1 |
12 |
if ($pod_encoding and not "$]" < 5.008 || !$ExtUtils::MM_Unix::Config{'useperlio'})
|
|
3009
|
0 |
155 |
unless open my $fh, "<", $parsefile
|
|
3012
|
0 |
355 |
/^=cut/ ? :
|
|
|
0 |
355 |
/^=(?!cut)/ ? :
|
|
3013
|
0 |
355 |
if $inpod or /^\s*#/
|
|
3015
|
2 |
353 |
if /^\s*(if|unless|elsif)/
|
|
3016
|
16 |
337 |
if (/^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (;|\{) /x) { }
|
|
|
130 |
207 |
elsif (/(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]/x) { }
|
|
3026
|
142 |
4 |
if defined $result
|
|
3030
|
3 |
152 |
if (defined $result and not $result =~ /^v?[\d_\.]+$/)
|
|
3033
|
1 |
2 |
if defined $normal
|
|
3035
|
142 |
13 |
if (defined $result)
|
|
3037
|
2 |
140 |
unless $result =~ /^v?[\d_\.]+$/ or eval {
|
|
3039
|
13 |
142 |
unless defined $result
|
|
3056
|
130 |
0 |
if $line =~ /^(.+)/s
|
|
3083
|
0 |
154 |
$Is{'VMS'} ? :
|
|
3090
|
460 |
464 |
unless defined $self->{$key}
|
|
3099
|
0 |
308 |
if defined $self->{$key}
|
|
3119
|
1 |
0 |
if -r $file and -f _
|
|
3136
|
0 |
154 |
if $self->{'PERL_SRC'}
|
|
3148
|
154 |
0 |
unless $self->needs_linking
|
|
3150
|
0 |
0 |
if ($self->{'OBJECT'})
|
|
3156
|
0 |
0 |
if %{$self->{'XS'};}
|
|
3213
|
5 |
149 |
ref $self->{'AUTHOR'} eq 'ARRAY' ? :
|
|
3227
|
6 |
148 |
if ($self->{'MIN_PERL_VERSION'})
|
|
3243
|
4 |
31 |
unless $name =~ /::/
|
|
3247
|
18 |
17 |
if $version
|
|
3257
|
154 |
0 |
if ("$]" >= "5.008")
|
|
3264
|
0 |
154 |
if ($self->{'PPM_INSTALL_SCRIPT'})
|
|
3265
|
0 |
0 |
if ($self->{'PPM_INSTALL_EXEC'}) { }
|
|
3275
|
0 |
154 |
if ($self->{'PPM_UNINSTALL_SCRIPT'})
|
|
3276
|
0 |
0 |
if ($self->{'PPM_UNINSTALL_EXEC'}) { }
|
|
3337
|
0 |
2235 |
if $sprefix =~ m[/$]
|
|
3339
|
0 |
2235 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3340
|
0 |
2235 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3342
|
14 |
2221 |
if ($self->{'ARGS'}{'PREFIX'} and not $path =~ s/^\Q$sprefix\E\b/$rprefix/s)
|
|
3346
|
0 |
14 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3347
|
0 |
14 |
if not $default and $ExtUtils::MM_Unix::Verbose >= 2
|
|
3349
|
14 |
0 |
if $default
|
|
3352
|
0 |
2235 |
if $ExtUtils::MM_Unix::Verbose >= 2
|
|
3367
|
0 |
154 |
unless $pl_files
|
|
3375
|
0 |
0 |
ref $targets eq 'ARRAY' ? :
|
|
|
0 |
0 |
ref $targets eq 'HASH' ? :
|
|
3378
|
0 |
0 |
if ($Is{'VMS'})
|
|
3390
|
0 |
0 |
if (defined $self->{'PM'}{$target}) { }
|
|
3400
|
0 |
0 |
if (ref $targets eq "HASH")
|
|
3403
|
0 |
0 |
ref $targets->{$target} ? :
|
|
3406
|
0 |
0 |
if ($Is{'VMS'})
|
|
3491
|
323 |
2080 |
unless defined $switches
|
|
3524
|
4211 |
8707 |
unless defined $opts->{'allow_variables'}
|
|
3530
|
4212 |
8706 |
$opts->{'allow_variables'} ? :
|
|
3558
|
155 |
612 |
unless (defined $self->{'_MAX_EXEC_LEN'})
|
|
3559
|
0 |
155 |
if (my $arg_max = eval {
|
|
3591
|
154 |
0 |
unless $self->has_link_code
|
|
3594
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
3598
|
0 |
0 |
if $d[0] eq "lib"
|
|
3640
|
0 |
0 |
if $self->{'PERL_SRC'} and $self->{'EXTRALIBS'}
|
|
3657
|
0 |
0 |
unless $self->{'MYEXTLIB'}
|
|
3670
|
0 |
0 |
if (exists $self->{'FULL_AR'} and -x $self->{'FULL_AR'}) { }
|
|
3697
|
0 |
154 |
if (@{$self->{'C'};})
|
|
3762
|
56 |
98 |
if (@m) { }
|
|
3784
|
0 |
154 |
if (not $tests and -d 't' and defined $attribs{'RECURSIVE_TEST_FILES'}) { }
|
|
|
113 |
41 |
elsif (not $tests and -d 't') { }
|
|
3791
|
0 |
154 |
if $self->is_make_type("nmake")
|
|
3794
|
154 |
0 |
$ExtUtils::MM_Unix::Config{'usedl'} ? :
|
|
3822
|
226 |
82 |
if ($tests or -f 'test.pl') { }
|
|
3827
|
226 |
226 |
$db eq 'db' ? :
|
|
3828
|
0 |
452 |
if ($linktype eq 'static' and $self->needs_linking) { }
|
|
3836
|
226 |
226 |
if ($db eq 'db') { }
|
|
3839
|
112 |
114 |
if -f "test.pl"
|
|
3841
|
226 |
0 |
if $tests
|
|
3890
|
154 |
0 |
unless $self->needs_linking
|
|
3896
|
0 |
0 |
if $self->{'PERL_CORE'}
|
|
3901
|
0 |
0 |
if (-r $self->catfile($xsdir, "xsubpp"))
|
|
3906
|
0 |
0 |
unless $foundxsubpp
|
|
3910
|
0 |
0 |
if ($self->{'TYPEMAPS'})
|
|
3912
|
0 |
0 |
if (not -f $typemap) { }
|
|
3916
|
0 |
0 |
if $Is{'VMS'}
|
|
3921
|
0 |
0 |
if -f "typemap"
|
|
3932
|
0 |
0 |
if (exists $self->{'XSOPT'})
|
|
3936
|
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/)
|
|
3946
|
0 |
0 |
unless defined $self->{'XSPROTOARG'}
|
|
3989
|
154 |
0 |
unless $self->{'SKIPHASH'}{'all'}
|
|
4004
|
0 |
154 |
unless $self->{'O_FILES'}
|
|
|
0 |
0 |
unless $self->{'H'}
|
|
|
0 |
154 |
if @{[] unless $self->{'O_FILES'};} and @{[] unless $self->{'H'};}
|
|
4037
|
154 |
0 |
unless $self->needs_linking
|
|
4053
|
0 |
0 |
unless $self->needs_linking
|
|
4072
|
154 |
0 |
unless $self->needs_linking
|
|
4073
|
0 |
0 |
$self->{'XSMULTI'} ? :
|
|
4075
|
0 |
0 |
$dbgout ? :
|
|
4078
|
0 |
0 |
unless $self->is_make_type("dmake")
|
|
4084
|
0 |
0 |
if ($self->{'XSMULTI'})
|
|
4087
|
0 |
0 |
unless -f $pmfile
|
|
4106
|
0 |
0 |
if $Is{'ApplCor'}
|
|
4114
|
0 |
0 |
unless defined $value
|
|
4121
|
0 |
0 |
if $self->{'XSBUILD'}{$xstype}{$ext}{$varname}
|
|
4123
|
0 |
0 |
if $self->{'XSBUILD'}{$xstype}{'all'}{$varname}
|