| 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
|
|
284
|
0 |
0 |
if -x $file and not -d _
|
|
288
|
0 |
0 |
unless ($file =~ m([/:>\]]))
|
|
291
|
0 |
0 |
unless $dir =~ /[\]:]$/
|
|
298
|
0 |
0 |
if -x "$sysfile$ext" and not -d _
|
|
367
|
0 |
0 |
if -r $file and not -d _
|
|
368
|
0 |
0 |
if -r "$file.com"
|
|
369
|
0 |
0 |
if -r "$file.pl"
|
|
432
|
0 |
0 |
if ($self->{'DEFINE'} ne "")
|
|
436
|
0 |
0 |
unless $def
|
|
438
|
0 |
0 |
if ($def =~ s/^-([DU])//)
|
|
439
|
0 |
0 |
if $1 eq "U"
|
|
443
|
0 |
0 |
if ($def =~ /=/)
|
|
451
|
0 |
0 |
if (@defs)
|
|
454
|
0 |
0 |
if (@udefs)
|
|
489
|
0 |
0 |
unless $self->{'MAKEFILE'} =~ /\./
|
|
490
|
0 |
0 |
unless $self->{'FIRST_MAKEFILE'} =~ /\./
|
|
491
|
0 |
0 |
unless $self->{'MAKE_APERL_FILE'} =~ /\./
|
|
492
|
0 |
0 |
unless $self->{'MAKEFILE_OLD'} =~ /\./
|
|
535
|
0 |
0 |
if $self->{'PERL_SRC'}
|
|
549
|
0 |
0 |
unless defined $self->{$macro}
|
|
587
|
0 |
0 |
if /POLLUTE/i
|
|
598
|
0 |
0 |
unless defined $self->{$macro}
|
|
599
|
0 |
0 |
if $macro =~ /MAN/ and $self->{$macro} eq "none"
|
|
607
|
0 |
0 |
unless defined $self->{$macro}
|
|
616
|
0 |
0 |
unless defined $self->{$macro}
|
|
624
|
0 |
0 |
unless defined $self->{$macro}
|
|
628
|
0 |
0 |
if ($self->{$macro} =~ /(?<!\^)\s/) { }
|
|
641
|
0 |
0 |
unless $self ne " " and defined $self->{$macro}
|
|
651
|
0 |
0 |
unless defined $self->{$macro}
|
|
703
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{$name}
|
|
705
|
0 |
0 |
if ($quals =~ / -[DIUOg]/)
|
|
709
|
0 |
0 |
if ($type eq 'g') { }
|
|
710
|
0 |
0 |
defined $lvl ? :
|
|
716
|
0 |
0 |
if ($type eq 'D') { }
|
|
|
0 |
0 |
elsif ($type eq 'I') { }
|
|
721
|
0 |
0 |
if (length $quals and not $quals =~ m[/])
|
|
725
|
0 |
0 |
if $self->{'POLLUTE'}
|
|
726
|
0 |
0 |
if (length $definestr)
|
|
727
|
0 |
0 |
if (length $undefstr)
|
|
732
|
0 |
0 |
if ($self->{'DEFINE'})
|
|
740
|
0 |
0 |
if ($type eq "Def")
|
|
743
|
0 |
0 |
if (@terms)
|
|
746
|
0 |
0 |
$type eq 'Def' ? :
|
|
750
|
0 |
0 |
unless $libperl
|
|
753
|
0 |
0 |
if ($self->{'INC'})
|
|
767
|
0 |
0 |
unless ($self->{'OPTIMIZE'} =~ m[/])
|
|
768
|
0 |
0 |
if ($self->{'OPTIMIZE'} =~ /-g/) { }
|
|
|
0 |
0 |
elsif ($self->{'OPTIMIZE'} =~ /-O(\d*)/) { }
|
|
770
|
0 |
0 |
defined $1 ? :
|
|
773
|
0 |
0 |
if length $self->{'OPTIMIZE'}
|
|
797
|
0 |
0 |
if $self->{'CONST_CCCMD'}
|
|
798
|
0 |
0 |
unless $self->needs_linking
|
|
799
|
0 |
0 |
if ($ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'gcc') { }
|
|
|
0 |
0 |
elsif ($ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'vaxc') { }
|
|
815
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'archname'} eq 'VMS_AXP' ? :
|
|
882
|
0 |
0 |
unless $self->{'ARGS'}{'DISTVNAME'}
|
|
896
|
0 |
0 |
unless $self->needs_linking
|
|
918
|
0 |
0 |
unless $self->needs_linking
|
|
934
|
0 |
0 |
unless $self->needs_linking
|
|
941
|
0 |
0 |
if ($self->{'XSMULTI'})
|
|
973
|
0 |
0 |
unless defined $value
|
|
997
|
0 |
0 |
if ($macro eq 'DEFINE') { }
|
|
|
0 |
0 |
elsif ($macro eq 'INC') { }
|
|
1021
|
0 |
0 |
if ($sq_new eq $sq)
|
|
1023
|
0 |
0 |
if defined $sqval_new and length $sqval_new
|
|
1028
|
0 |
0 |
unless $replaced_old
|
|
1031
|
0 |
0 |
if (@subquals)
|
|
1034
|
0 |
0 |
if not $_ =~ /^\$\(/
|
|
|
0 |
0 |
if $quote_subquals
|
|
1056
|
0 |
0 |
unless $self->needs_linking
|
|
1064
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
1067
|
0 |
0 |
if $d[0] eq "lib"
|
|
1070
|
0 |
0 |
unless $self->{'SKIPHASH'}{'dynamic'}
|
|
1072
|
0 |
0 |
unless $self->{'SKIPHASH'}{'static'}
|
|
1080
|
0 |
0 |
unless $self->{'SKIPHASH'}{'dynamic'}
|
|
1082
|
0 |
0 |
unless $self->{'SKIPHASH'}{'static'}
|
|
1096
|
0 |
0 |
if defined $extra
|
|
1100
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
1106
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'d_vms_case_sensitive_symbols'} ? :
|
|
1111
|
0 |
0 |
if ($self->{'OBJECT'} =~ /\bBASEEXT\b/ or $self->{'OBJECT'} =~ /\b$self->{'BASEEXT'}\b/i) { }
|
|
1114
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'d_vms_case_sensitive_symbols'} ? :
|
|
1124
|
0 |
0 |
if $upcase
|
|
1130
|
0 |
0 |
if (length $tmp > 80)
|
|
1137
|
0 |
0 |
if (length $self->{'LDLOADLIBS'})
|
|
1141
|
0 |
0 |
if (length($line) + length($lib) > 160) { }
|
|
1147
|
0 |
0 |
if $line
|
|
1204
|
0 |
0 |
if ($self->{'XSMULTI'}) { }
|
|
1209
|
0 |
0 |
if defined $override
|
|
1224
|
0 |
0 |
if $self->{'MYEXTLIB'}
|
|
1231
|
0 |
0 |
if ($self->{'MYEXTLIB'}) { }
|
|
1379
|
0 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
1398
|
0 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
1416
|
0 |
0 |
unless $self->{'NO_PACKLIST'}
|
|
1442
|
0 |
0 |
if $self->{'NO_PERLLOCAL'}
|
|
1471
|
0 |
0 |
unless $self->{'NO_PERLLOCAL'}
|
|
1502
|
0 |
0 |
if ($self->{'OBJECT'})
|
|
1509
|
0 |
0 |
if ($self->{'PERL_SRC'})
|
|
1512
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'archname'} eq "VMS_AXP"
|
|
1513
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'vms_cc_type'} eq "decc"
|
|
1514
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'vms_cc_type'} eq "gcc"
|
|
1515
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'d_has_sockets'}
|
|
1516
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'cc'} =~ m[/]
|
|
1517
|
0 |
0 |
if @macros
|
|
1530
|
0 |
0 |
if ($self->{'PERL_ARCHLIB'} =~ /\[-/ and $self->{'PERL_SRC'} =~ /(\[-+)/) { }
|
|
1542
|
0 |
0 |
if %{$self->{'XS'};}
|
|
1568
|
0 |
0 |
if $self->{'PARENT'}
|
|
1572
|
0 |
0 |
unless ($self->{'MAKEAPERL'})
|
|
1605
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E$/
|
|
1606
|
0 |
0 |
if /^libperl/
|
|
1608
|
0 |
0 |
if (exists $self->{'INCLUDE_EXT'}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'EXCLUDE_EXT'}) { }
|
|
1618
|
0 |
0 |
if ($xx eq $incl)
|
|
1623
|
0 |
0 |
unless $found
|
|
1632
|
0 |
0 |
if $xx eq $excl
|
|
1637
|
0 |
0 |
unless $searchdirs
|
|
1640
|
0 |
0 |
unless $static
|
|
1643
|
0 |
0 |
unless $extra and ref $extra eq "ARRAY"
|
|
1651
|
0 |
0 |
unless length $a <=> length $b
|
|
1652
|
0 |
0 |
unless $olbs{$_} =~ /\Q$self->{'LIB_EXT'}\E$/
|
|
1659
|
0 |
0 |
if (-f $extralibs)
|
|
1661
|
0 |
0 |
unless open my $list, "<", $extralibs
|
|
1670
|
0 |
0 |
if $skip
|
|
1675
|
0 |
0 |
if (-f $extopt)
|
|
1676
|
0 |
0 |
unless open my $opt, "<", $extopt
|
|
1678
|
0 |
0 |
unless /(?:UNIVERSAL|VECTOR)=boot_([\w_]+)/
|
|
1691
|
0 |
0 |
unless $target
|
|
1696
|
0 |
0 |
unless $target
|
|
1697
|
0 |
0 |
unless $tmpdir
|
|
1699
|
0 |
0 |
if (@optlibs) { }
|
|
1704
|
0 |
0 |
if ($libperl)
|
|
1705
|
0 |
0 |
unless (-f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, "CORE", $libperl)))
|
|
1710
|
0 |
0 |
unless ($libperl)
|
|
1711
|
0 |
0 |
if (defined $self->{'PERL_SRC'}) { }
|
|
|
0 |
0 |
elsif (-f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, 'CORE', "libperl$self->{'LIB_EXT'}"))) { }
|
|
1727
|
0 |
0 |
$perlinc ? :
|
|
1832
|
0 |
0 |
if $rprefix
|
|
1833
|
0 |
0 |
if $sprefix
|
|
1835
|
0 |
0 |
unless $default =~ /\[.*\]/
|
|
1843
|
0 |
0 |
if (not $path) { }
|
|
|
0 |
0 |
elsif (not $self->{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path)) { }
|
|
|
0 |
0 |
elsif ($sprefix eq $rprefix) { }
|
|
1844
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1851
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1855
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1856
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1859
|
0 |
0 |
if ($path_vol eq $ExtUtils::MM_VMS::Config{'vms_prefix'} . ':') { }
|
|
1860
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1862
|
0 |
0 |
unless $path_dirs =~ /^\[\./
|
|
1870
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1878
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2
|
|
1880
|
0 |
0 |
unless ($default)
|
|
1881
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 1
|
|
1884
|
0 |
0 |
unless ($rprefix)
|
|
1885
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 1
|
|
1896
|
0 |
0 |
if ($rvol) { }
|
|
1940
|
0 |
0 |
unless defined $switches
|
|
1968
|
0 |
0 |
unless (ref $opts)
|
|
1972
|
0 |
0 |
$opts->{'append'} ? :
|
|
1974
|
0 |
0 |
unless defined $opts->{'allow_variables'}
|
|
1992
|
0 |
0 |
unless defined $opts->{'allow_variables'}
|
|
1998
|
0 |
0 |
$opts->{'allow_variables'} ? :
|
|
2067
|
0 |
0 |
if ($self->{'PERL_SRC'}) { }
|
|
2073
|
0 |
0 |
$ENV{$shr} ? :
|
|
2095
|
0 |
0 |
/\$\(/ ? :
|
|
2109
|
0 |
0 |
/\$\(/ ? :
|
|
2132
|
0 |
0 |
unless $path
|
|
2133
|
0 |
0 |
unless ref $self
|
|
2144
|
0 |
0 |
if (defined $self->{$2})
|
|
2146
|
0 |
0 |
if (ref $self->{$macro}) { }
|
|
2147
|
0 |
0 |
if (ref $self->{$macro} eq 'ARRAY') { }
|
|
2160
|
0 |
0 |
unless $macro =~ /(?<!\^)\s/
|
|
2166
|
0 |
0 |
if ($complex)
|
|
2194
|
0 |
0 |
unless $path
|
|
2195
|
0 |
0 |
unless ref $self
|
|
2198
|
0 |
0 |
if ($path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]])) { }
|
|
|
0 |
0 |
elsif (($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $self->{$prefix}) { }
|
|
2199
|
0 |
0 |
if ($force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/) { }
|
|
2209
|
0 |
0 |
$vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/ ? :
|
|
2210
|
0 |
0 |
$vmspre ? :
|
|
2211
|
0 |
0 |
if $force_path
|
|
2215
|
0 |
0 |
if $force_path
|
|
2218
|
0 |
0 |
unless (defined $force_path or $fixedpath =~ /[:>(.\]]/)
|
|
2219
|
0 |
0 |
if -d $fixedpath
|
|
2228
|
0 |
0 |
if ($path =~ /^[\[>][^.\-]/)
|