| line |
true |
false |
branch |
|
11
|
0 |
4 |
if ($^O eq "VMS") |
|
64
|
0 |
0 |
unless $word =~ /\w/ |
|
65
|
0 |
0 |
if length $line |
|
66
|
0 |
0 |
if ($hlen > 80) |
|
119
|
0 |
0 |
unless (-e "$defpm.pm") |
|
122
|
0 |
0 |
if (@pm == 1) { } |
|
|
0 |
0 |
elsif (@pm) { } |
|
125
|
0 |
0 |
if (keys %xs) |
|
127
|
0 |
0 |
if exists $xs{$pm} |
|
132
|
0 |
0 |
if (open my $pm, '<', "$defpm.pm") { } |
|
134
|
0 |
0 |
if (/^\s*package\s+([^;]+)/i) |
|
139
|
0 |
0 |
if eof $pm |
|
166
|
0 |
0 |
if ($self->{'PERL_CORE'}) { } |
|
171
|
0 |
0 |
if ($absa and $absb) { } |
|
172
|
0 |
0 |
$absb ? : |
|
|
0 |
0 |
$absa ? : |
|
181
|
0 |
0 |
if ($ahasdir and not $bhasdir) { } |
|
|
0 |
0 |
elsif ($bhasdir and not $ahasdir) { } |
|
183
|
0 |
0 |
unless $bb =~ /\d/ <=> $ba =~ /\d/ or substr($ba, 0, 1) cmp substr($bb, 0, 1) |
|
194
|
0 |
0 |
if ($trace >= 2) |
|
201
|
0 |
0 |
unless defined $dir |
|
202
|
0 |
0 |
if $self->file_name_is_absolute($dir) |
|
203
|
0 |
0 |
if ($inabs == 1) |
|
209
|
0 |
0 |
if $name =~ /^[\w\-\$]+$/ |
|
214
|
0 |
0 |
!($name =~ m([/:>\]])) ? : |
|
219
|
0 |
0 |
if $trace >= 2 |
|
221
|
0 |
0 |
if ($name =~ /^[\w\-\$]+$/) |
|
222
|
0 |
0 |
unless open my $tcf, ">", "temp_mmvms.com" |
|
229
|
0 |
0 |
if ($rslt =~ /VER_OK/) |
|
230
|
0 |
0 |
if $trace |
|
234
|
0 |
0 |
unless $vmsfile = $self->maybe_command($name) |
|
236
|
0 |
0 |
if $trace >= 2 |
|
237
|
0 |
0 |
unless open my $tcf, ">", "temp_mmvms.com" |
|
244
|
0 |
0 |
if ($rslt =~ /VER_OK/) |
|
245
|
0 |
0 |
if $trace |
|
285
|
0 |
0 |
if -x $file and not -d _ |
|
289
|
0 |
0 |
unless ($file =~ m([/:>\]])) |
|
292
|
0 |
0 |
unless $dir =~ /[\]:]$/ |
|
299
|
0 |
0 |
if -x "$sysfile$ext" and not -d _ |
|
368
|
0 |
0 |
if -r $file and not -d _ |
|
369
|
0 |
0 |
if -r "$file.com" |
|
370
|
0 |
0 |
if -r "$file.pl" |
|
433
|
0 |
0 |
if ($self->{'DEFINE'} ne "") |
|
437
|
0 |
0 |
unless $def |
|
439
|
0 |
0 |
if ($def =~ s/^-([DU])//) |
|
440
|
0 |
0 |
if $1 eq "U" |
|
444
|
0 |
0 |
if ($def =~ /=/) |
|
452
|
0 |
0 |
if (@defs) |
|
455
|
0 |
0 |
if (@udefs) |
|
490
|
0 |
0 |
unless $self->{'MAKEFILE'} =~ /\./ |
|
491
|
0 |
0 |
unless $self->{'FIRST_MAKEFILE'} =~ /\./ |
|
492
|
0 |
0 |
unless $self->{'MAKE_APERL_FILE'} =~ /\./ |
|
493
|
0 |
0 |
unless $self->{'MAKEFILE_OLD'} =~ /\./ |
|
536
|
0 |
0 |
if $self->{'PERL_SRC'} |
|
550
|
0 |
0 |
unless defined $self->{$macro} |
|
588
|
0 |
0 |
if /POLLUTE/i |
|
599
|
0 |
0 |
unless defined $self->{$macro} |
|
600
|
0 |
0 |
if $macro =~ /MAN/ and $self->{$macro} eq "none" |
|
608
|
0 |
0 |
unless defined $self->{$macro} |
|
617
|
0 |
0 |
unless defined $self->{$macro} |
|
625
|
0 |
0 |
unless defined $self->{$macro} |
|
629
|
0 |
0 |
if ($self->{$macro} =~ /(?
|
|
642
|
0 |
0 |
unless $self ne " " and defined $self->{$macro} |
|
652
|
0 |
0 |
unless defined $self->{$macro} |
|
704
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{$name} |
|
706
|
0 |
0 |
if ($quals =~ / -[DIUOg]/) |
|
710
|
0 |
0 |
if ($type eq 'g') { } |
|
711
|
0 |
0 |
defined $lvl ? : |
|
717
|
0 |
0 |
if ($type eq 'D') { } |
|
|
0 |
0 |
elsif ($type eq 'I') { } |
|
722
|
0 |
0 |
if (length $quals and not $quals =~ m[/]) |
|
726
|
0 |
0 |
if $self->{'POLLUTE'} |
|
727
|
0 |
0 |
if (length $definestr) |
|
728
|
0 |
0 |
if (length $undefstr) |
|
733
|
0 |
0 |
if ($self->{'DEFINE'}) |
|
741
|
0 |
0 |
if ($type eq "Def") |
|
744
|
0 |
0 |
if (@terms) |
|
747
|
0 |
0 |
$type eq 'Def' ? : |
|
751
|
0 |
0 |
unless $libperl |
|
754
|
0 |
0 |
if ($self->{'INC'}) |
|
768
|
0 |
0 |
unless ($self->{'OPTIMIZE'} =~ m[/]) |
|
769
|
0 |
0 |
if ($self->{'OPTIMIZE'} =~ /-g/) { } |
|
|
0 |
0 |
elsif ($self->{'OPTIMIZE'} =~ /-O(\d*)/) { } |
|
771
|
0 |
0 |
defined $1 ? : |
|
774
|
0 |
0 |
if length $self->{'OPTIMIZE'} |
|
798
|
0 |
0 |
if $self->{'CONST_CCCMD'} |
|
799
|
0 |
0 |
unless $self->needs_linking |
|
800
|
0 |
0 |
if ($ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'gcc') { } |
|
|
0 |
0 |
elsif ($ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'vaxc') { } |
|
816
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'archname'} eq 'VMS_AXP' ? : |
|
883
|
0 |
0 |
unless $self->{'ARGS'}{'DISTVNAME'} |
|
897
|
0 |
0 |
unless $self->needs_linking |
|
919
|
0 |
0 |
unless $self->needs_linking |
|
935
|
0 |
0 |
unless $self->needs_linking |
|
942
|
0 |
0 |
if ($self->{'XSMULTI'}) |
|
974
|
0 |
0 |
unless defined $value |
|
998
|
0 |
0 |
if ($macro eq 'DEFINE') { } |
|
|
0 |
0 |
elsif ($macro eq 'INC') { } |
|
1022
|
0 |
0 |
if ($sq_new eq $sq) |
|
1024
|
0 |
0 |
if defined $sqval_new and length $sqval_new |
|
1029
|
0 |
0 |
unless $replaced_old |
|
1032
|
0 |
0 |
if (@subquals) |
|
1035
|
0 |
0 |
if not $_ =~ /^\$\(/ |
|
|
0 |
0 |
if $quote_subquals |
|
1057
|
0 |
0 |
unless $self->needs_linking |
|
1065
|
0 |
0 |
if ($self->{'XSMULTI'}) { } |
|
1068
|
0 |
0 |
if $d[0] eq "lib" |
|
1071
|
0 |
0 |
unless $self->{'SKIPHASH'}{'dynamic'} |
|
1073
|
0 |
0 |
unless $self->{'SKIPHASH'}{'static'} |
|
1081
|
0 |
0 |
unless $self->{'SKIPHASH'}{'dynamic'} |
|
1083
|
0 |
0 |
unless $self->{'SKIPHASH'}{'static'} |
|
1097
|
0 |
0 |
if defined $extra |
|
1101
|
0 |
0 |
if ($self->{'XSMULTI'}) { } |
|
1107
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'d_vms_case_sensitive_symbols'} ? : |
|
1112
|
0 |
0 |
if ($self->{'OBJECT'} =~ /\bBASEEXT\b/ or $self->{'OBJECT'} =~ /\b$self->{'BASEEXT'}\b/i) { } |
|
1115
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'d_vms_case_sensitive_symbols'} ? : |
|
1125
|
0 |
0 |
if $upcase |
|
1131
|
0 |
0 |
if (length $tmp > 80) |
|
1138
|
0 |
0 |
if (length $self->{'LDLOADLIBS'}) |
|
1142
|
0 |
0 |
if (length($line) + length($lib) > 160) { } |
|
1148
|
0 |
0 |
if $line |
|
1205
|
0 |
0 |
if ($self->{'XSMULTI'}) { } |
|
1210
|
0 |
0 |
if defined $override |
|
1225
|
0 |
0 |
if $self->{'MYEXTLIB'} |
|
1232
|
0 |
0 |
if ($self->{'MYEXTLIB'}) { } |
|
1380
|
0 |
0 |
unless $self->{'NO_PACKLIST'} |
|
1399
|
0 |
0 |
unless $self->{'NO_PACKLIST'} |
|
1417
|
0 |
0 |
unless $self->{'NO_PACKLIST'} |
|
1443
|
0 |
0 |
if $self->{'NO_PERLLOCAL'} |
|
1472
|
0 |
0 |
unless $self->{'NO_PERLLOCAL'} |
|
1503
|
0 |
0 |
if ($self->{'OBJECT'}) |
|
1510
|
0 |
0 |
if ($self->{'PERL_SRC'}) |
|
1513
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'archname'} eq "VMS_AXP" |
|
1514
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'vms_cc_type'} eq "decc" |
|
1515
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'vms_cc_type'} eq "gcc" |
|
1516
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'d_has_sockets'} |
|
1517
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'cc'} =~ m[/] |
|
1518
|
0 |
0 |
if @macros |
|
1531
|
0 |
0 |
if ($self->{'PERL_ARCHLIB'} =~ /\[-/ and $self->{'PERL_SRC'} =~ /(\[-+)/) { } |
|
1543
|
0 |
0 |
if %{$self->{'XS'};} |
|
1569
|
0 |
0 |
if $self->{'PARENT'} |
|
1573
|
0 |
0 |
unless ($self->{'MAKEAPERL'}) |
|
1606
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E$/ |
|
1607
|
0 |
0 |
if /^libperl/ |
|
1609
|
0 |
0 |
if (exists $self->{'INCLUDE_EXT'}) { } |
|
|
0 |
0 |
elsif (exists $self->{'EXCLUDE_EXT'}) { } |
|
1619
|
0 |
0 |
if ($xx eq $incl) |
|
1624
|
0 |
0 |
unless $found |
|
1633
|
0 |
0 |
if $xx eq $excl |
|
1638
|
0 |
0 |
unless $searchdirs |
|
1641
|
0 |
0 |
unless $static |
|
1644
|
0 |
0 |
unless $extra and ref $extra eq "ARRAY" |
|
1652
|
0 |
0 |
unless length $a <=> length $b |
|
1653
|
0 |
0 |
unless $olbs{$_} =~ /\Q$self->{'LIB_EXT'}\E$/ |
|
1660
|
0 |
0 |
if (-f $extralibs) |
|
1662
|
0 |
0 |
unless open my $list, "<", $extralibs |
|
1671
|
0 |
0 |
if $skip |
|
1676
|
0 |
0 |
if (-f $extopt) |
|
1677
|
0 |
0 |
unless open my $opt, "<", $extopt |
|
1679
|
0 |
0 |
unless /(?:UNIVERSAL|VECTOR)=boot_([\w_]+)/ |
|
1692
|
0 |
0 |
unless $target |
|
1697
|
0 |
0 |
unless $target |
|
1698
|
0 |
0 |
unless $tmpdir |
|
1700
|
0 |
0 |
if (@optlibs) { } |
|
1705
|
0 |
0 |
if ($libperl) |
|
1706
|
0 |
0 |
unless (-f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, "CORE", $libperl))) |
|
1711
|
0 |
0 |
unless ($libperl) |
|
1712
|
0 |
0 |
if (defined $self->{'PERL_SRC'}) { } |
|
|
0 |
0 |
elsif (-f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, 'CORE', "libperl$self->{'LIB_EXT'}"))) { } |
|
1728
|
0 |
0 |
$perlinc ? : |
|
1833
|
0 |
0 |
if $rprefix |
|
1834
|
0 |
0 |
if $sprefix |
|
1836
|
0 |
0 |
unless $default =~ /\[.*\]/ |
|
1844
|
0 |
0 |
if (not $path) { } |
|
|
0 |
0 |
elsif (not $self->{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path)) { } |
|
|
0 |
0 |
elsif ($sprefix eq $rprefix) { } |
|
1845
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1852
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1856
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1857
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1860
|
0 |
0 |
if ($path_vol eq $ExtUtils::MM_VMS::Config{'vms_prefix'} . ':') { } |
|
1861
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1863
|
0 |
0 |
unless $path_dirs =~ /^\[\./ |
|
1871
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1879
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1881
|
0 |
0 |
unless ($default) |
|
1882
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 1 |
|
1885
|
0 |
0 |
unless ($rprefix) |
|
1886
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 1 |
|
1897
|
0 |
0 |
if ($rvol) { } |
|
1941
|
0 |
0 |
unless defined $switches |
|
1969
|
0 |
0 |
unless (ref $opts) |
|
1973
|
0 |
0 |
$opts->{'append'} ? : |
|
1975
|
0 |
0 |
unless defined $opts->{'allow_variables'} |
|
1993
|
0 |
0 |
unless defined $opts->{'allow_variables'} |
|
1999
|
0 |
0 |
$opts->{'allow_variables'} ? : |
|
2068
|
0 |
0 |
if ($self->{'PERL_SRC'}) { } |
|
2074
|
0 |
0 |
$ENV{$shr} ? : |
|
2096
|
0 |
0 |
if (/\$\(/) { } |
|
2110
|
0 |
0 |
if (/\$\(/) { } |
|
2133
|
0 |
0 |
unless $path |
|
2134
|
0 |
0 |
unless ref $self |
|
2145
|
0 |
0 |
if (defined $self->{$2}) |
|
2147
|
0 |
0 |
if (ref $self->{$macro}) { } |
|
2148
|
0 |
0 |
if (ref $self->{$macro} eq 'ARRAY') { } |
|
2161
|
0 |
0 |
unless $macro =~ /(?
|
|
2167
|
0 |
0 |
if ($complex) |
|
2195
|
0 |
0 |
unless $path |
|
2196
|
0 |
0 |
unless ref $self |
|
2199
|
0 |
0 |
if ($path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]])) { } |
|
|
0 |
0 |
elsif (($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $self->{$prefix}) { } |
|
2200
|
0 |
0 |
if ($force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/) { } |
|
2210
|
0 |
0 |
$vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/ ? : |
|
2211
|
0 |
0 |
$vmspre ? : |
|
2212
|
0 |
0 |
if $force_path |
|
2216
|
0 |
0 |
if $force_path |
|
2219
|
0 |
0 |
unless (defined $force_path or $fixedpath =~ /[:>(.\]]/) |
|
2220
|
0 |
0 |
if -d $fixedpath |
|
2229
|
0 |
0 |
if ($path =~ /^[\[>][^.\-]/) |