| line |
true |
false |
branch |
|
10
|
0 |
4 |
if ($^O eq 'VMS') |
|
62
|
0 |
0 |
unless $word =~ /\w/ |
|
63
|
0 |
0 |
if length $line |
|
64
|
0 |
0 |
if ($hlen > 80) |
|
117
|
0 |
0 |
unless (-e "$defpm.pm") |
|
120
|
0 |
0 |
if (@pm == 1) { } |
|
|
0 |
0 |
elsif (@pm) { } |
|
123
|
0 |
0 |
if (keys %xs) |
|
125
|
0 |
0 |
if exists $xs{$pm} |
|
130
|
0 |
0 |
if (open my $pm, '<', "$defpm.pm") { } |
|
132
|
0 |
0 |
if (/^\s*package\s+([^;]+)/i) |
|
137
|
0 |
0 |
if eof $pm |
|
164
|
0 |
0 |
if ($$self{'PERL_CORE'}) { } |
|
169
|
0 |
0 |
if ($absa and $absb) { } |
|
170
|
0 |
0 |
$absb ? : |
|
|
0 |
0 |
$absa ? : |
|
179
|
0 |
0 |
if ($ahasdir and not $bhasdir) { } |
|
|
0 |
0 |
elsif ($bhasdir and not $ahasdir) { } |
|
181
|
0 |
0 |
unless $bb =~ /\d/ <=> $ba =~ /\d/ or substr($ba, 0, 1) cmp substr($bb, 0, 1) |
|
192
|
0 |
0 |
if ($trace >= 2) |
|
199
|
0 |
0 |
unless defined $dir |
|
200
|
0 |
0 |
if $self->file_name_is_absolute($dir) |
|
201
|
0 |
0 |
if ($inabs == 1) |
|
207
|
0 |
0 |
if $name =~ /^[\w\-\$]+$/ |
|
212
|
0 |
0 |
!($name =~ m([/:>\]])) ? : |
|
217
|
0 |
0 |
if $trace >= 2 |
|
219
|
0 |
0 |
if ($name =~ /^[\w\-\$]+$/) |
|
220
|
0 |
0 |
unless open my $tcf, '>', 'temp_mmvms.com' |
|
227
|
0 |
0 |
if ($rslt =~ /VER_OK/) |
|
228
|
0 |
0 |
if $trace |
|
232
|
0 |
0 |
unless $vmsfile = $self->maybe_command($name) |
|
234
|
0 |
0 |
if $trace >= 2 |
|
235
|
0 |
0 |
unless open my $tcf, '>', 'temp_mmvms.com' |
|
242
|
0 |
0 |
if ($rslt =~ /VER_OK/) |
|
243
|
0 |
0 |
if $trace |
|
281
|
0 |
0 |
if -x $file and not -d _ |
|
285
|
0 |
0 |
unless ($file =~ m([/:>\]])) |
|
288
|
0 |
0 |
unless $dir =~ /[\]:]$/ |
|
295
|
0 |
0 |
if -x "$sysfile$ext" and not -d _ |
|
357
|
0 |
0 |
if -r $file and not -d _ |
|
358
|
0 |
0 |
if -r "$file.com" |
|
359
|
0 |
0 |
if -r "$file.pl" |
|
422
|
0 |
0 |
if ($$self{'DEFINE'} ne '') |
|
426
|
0 |
0 |
unless $def |
|
428
|
0 |
0 |
if ($def =~ s/^-([DU])//) |
|
429
|
0 |
0 |
if $1 eq 'U' |
|
433
|
0 |
0 |
if ($def =~ /=/) |
|
441
|
0 |
0 |
if (@defs) |
|
444
|
0 |
0 |
if (@udefs) |
|
479
|
0 |
0 |
unless $$self{'MAKEFILE'} =~ /\./ |
|
480
|
0 |
0 |
unless $$self{'FIRST_MAKEFILE'} =~ /\./ |
|
481
|
0 |
0 |
unless $$self{'MAKE_APERL_FILE'} =~ /\./ |
|
482
|
0 |
0 |
unless $$self{'MAKEFILE_OLD'} =~ /\./ |
|
524
|
0 |
0 |
if $$self{'PERL_SRC'} |
|
539
|
0 |
0 |
unless defined $$self{$macro} |
|
577
|
0 |
0 |
if /POLLUTE/i |
|
587
|
0 |
0 |
unless defined $$self{$macro} |
|
588
|
0 |
0 |
if $macro =~ /MAN/ and $$self{$macro} eq 'none' |
|
596
|
0 |
0 |
unless defined $$self{$macro} |
|
605
|
0 |
0 |
unless defined $$self{$macro} |
|
613
|
0 |
0 |
unless defined $$self{$macro} |
|
617
|
0 |
0 |
if ($$self{$macro} =~ /(?
|
|
630
|
0 |
0 |
unless $self ne ' ' and defined $$self{$macro} |
|
640
|
0 |
0 |
unless defined $$self{$macro} |
|
690
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{$name} |
|
694
|
0 |
0 |
if ($quals =~ / -[DIUOg]/) |
|
698
|
0 |
0 |
if ($type eq 'g') { } |
|
699
|
0 |
0 |
defined $lvl ? : |
|
705
|
0 |
0 |
if ($type eq 'D') { } |
|
|
0 |
0 |
elsif ($type eq 'I') { } |
|
710
|
0 |
0 |
if (length $quals and not $quals =~ m[/]) |
|
714
|
0 |
0 |
if $$self{'POLLUTE'} |
|
715
|
0 |
0 |
if (length $definestr) |
|
716
|
0 |
0 |
if (length $undefstr) |
|
721
|
0 |
0 |
if ($$self{'DEFINE'}) |
|
729
|
0 |
0 |
if ($type eq 'Def') |
|
732
|
0 |
0 |
if (@terms) |
|
738
|
0 |
0 |
unless $libperl |
|
741
|
0 |
0 |
if ($$self{'INC'}) |
|
755
|
0 |
0 |
unless ($$self{'OPTIMIZE'} =~ m[/]) |
|
756
|
0 |
0 |
if ($$self{'OPTIMIZE'} =~ /-g/) { } |
|
|
0 |
0 |
elsif ($$self{'OPTIMIZE'} =~ /-O(\d*)/) { } |
|
758
|
0 |
0 |
defined $1 ? : |
|
761
|
0 |
0 |
if length $$self{'OPTIMIZE'} |
|
785
|
0 |
0 |
if $$self{'CONST_CCCMD'} |
|
786
|
0 |
0 |
unless $self->needs_linking |
|
787
|
0 |
0 |
if ($ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'gcc') { } |
|
|
0 |
0 |
elsif ($ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'vaxc') { } |
|
799
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'archname'} eq 'VMS_AXP' ? : |
|
869
|
0 |
0 |
unless $$self{'ARGS'}{'DISTVNAME'} |
|
884
|
0 |
0 |
unless $self->needs_linking |
|
906
|
0 |
0 |
unless $self->needs_linking |
|
921
|
0 |
0 |
unless $self->needs_linking |
|
941
|
0 |
0 |
unless $self->needs_linking |
|
948
|
0 |
0 |
unless ($$self{'SKIPHASH'}{'dynamic'}) |
|
955
|
0 |
0 |
unless $$self{'SKIPHASH'}{'static'} |
|
971
|
0 |
0 |
if ($$self{'OBJECT'} =~ /\bBASEEXT\b/ or $$self{'OBJECT'} =~ /\b$$self{'BASEEXT'}\b/i) { } |
|
973
|
0 |
0 |
$ExtUtils::MM_VMS::Config{'d_vms_case_sensitive_symbols'} ? : |
|
984
|
0 |
0 |
if $upcase |
|
991
|
0 |
0 |
if (length $tmp > 80) |
|
998
|
0 |
0 |
if (length $$self{'LDLOADLIBS'}) |
|
1002
|
0 |
0 |
if (length($line) + length($lib) > 160) { } |
|
1008
|
0 |
0 |
if $line |
|
1023
|
0 |
0 |
unless $self->needs_linking |
|
1025
|
0 |
0 |
unless $self->has_link_code |
|
1055
|
0 |
0 |
unless $self->needs_linking |
|
1057
|
0 |
0 |
unless $$self{'C'} |
|
1060
|
0 |
0 |
unless $$self{'OBJECT'} or @{[] unless $$self{'C'};} or $$self{'MYEXTLIB'} |
|
1071
|
0 |
0 |
if $$self{'MYEXTLIB'} |
|
1078
|
0 |
0 |
if ($$self{'MYEXTLIB'}) { } |
|
1291
|
0 |
0 |
if ($$self{'OBJECT'}) |
|
1298
|
0 |
0 |
if ($$self{'PERL_SRC'}) |
|
1301
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'archname'} eq 'VMS_AXP' |
|
1302
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'decc' |
|
1303
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'vms_cc_type'} eq 'gcc' |
|
1304
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'d_has_sockets'} |
|
1305
|
0 |
0 |
if $ExtUtils::MM_VMS::Config{'cc'} =~ m[/] |
|
1306
|
0 |
0 |
if @macros |
|
1319
|
0 |
0 |
if ($$self{'PERL_ARCHLIB'} =~ /\[-/ and $$self{'PERL_SRC'} =~ /(\[-+)/) { } |
|
1331
|
0 |
0 |
if %{$$self{'XS'};} |
|
1357
|
0 |
0 |
if $$self{'PARENT'} |
|
1361
|
0 |
0 |
unless ($$self{'MAKEAPERL'}) |
|
1394
|
0 |
0 |
unless /\Q$$self{'LIB_EXT'}\E$/ |
|
1395
|
0 |
0 |
if /^libperl/ |
|
1397
|
0 |
0 |
if (exists $$self{'INCLUDE_EXT'}) { } |
|
|
0 |
0 |
elsif (exists $$self{'EXCLUDE_EXT'}) { } |
|
1407
|
0 |
0 |
if ($xx eq $incl) |
|
1412
|
0 |
0 |
unless $found |
|
1421
|
0 |
0 |
if $xx eq $excl |
|
1426
|
0 |
0 |
unless $searchdirs |
|
1429
|
0 |
0 |
unless $static |
|
1432
|
0 |
0 |
unless $extra and ref $extra eq 'ARRAY' |
|
1441
|
0 |
0 |
unless $olbs{$_} =~ /\Q$$self{'LIB_EXT'}\E$/ |
|
1448
|
0 |
0 |
if (-f $extralibs) |
|
1450
|
0 |
0 |
unless open my $list, '<', $extralibs |
|
1459
|
0 |
0 |
if $skip |
|
1464
|
0 |
0 |
if (-f $extopt) |
|
1465
|
0 |
0 |
unless open my $opt, '<', $extopt |
|
1467
|
0 |
0 |
unless /(?:UNIVERSAL|VECTOR)=boot_([\w_]+)/ |
|
1480
|
0 |
0 |
unless $target |
|
1485
|
0 |
0 |
unless $target |
|
1486
|
0 |
0 |
unless $tmpdir |
|
1488
|
0 |
0 |
if (@optlibs) { } |
|
1493
|
0 |
0 |
if ($libperl) |
|
1494
|
0 |
0 |
unless (-f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, 'CORE', $libperl))) |
|
1499
|
0 |
0 |
unless ($libperl) |
|
1500
|
0 |
0 |
if (defined $$self{'PERL_SRC'}) { } |
|
|
0 |
0 |
elsif (-f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, 'CORE', "libperl$$self{'LIB_EXT'}"))) { } |
|
1516
|
0 |
0 |
$perlinc ? : |
|
1621
|
0 |
0 |
if $rprefix |
|
1622
|
0 |
0 |
if $sprefix |
|
1624
|
0 |
0 |
unless $default =~ /\[.*\]/ |
|
1632
|
0 |
0 |
if (not $path) { } |
|
|
0 |
0 |
elsif (not $$self{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path)) { } |
|
|
0 |
0 |
elsif ($sprefix eq $rprefix) { } |
|
1633
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1640
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1644
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1645
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1648
|
0 |
0 |
if ($path_vol eq $ExtUtils::MM_VMS::Config{'vms_prefix'} . ':') { } |
|
1649
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1651
|
0 |
0 |
unless $path_dirs =~ /^\[\./ |
|
1659
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1667
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 2 |
|
1669
|
0 |
0 |
unless ($default) |
|
1670
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 1 |
|
1673
|
0 |
0 |
unless ($rprefix) |
|
1674
|
0 |
0 |
if $ExtUtils::MM_VMS::Verbose >= 1 |
|
1685
|
0 |
0 |
if ($rvol) { } |
|
1729
|
0 |
0 |
unless defined $switches |
|
1756
|
0 |
0 |
unless (ref $opts) |
|
1760
|
0 |
0 |
$$opts{'append'} ? : |
|
1762
|
0 |
0 |
unless defined $$opts{'allow_variables'} |
|
1780
|
0 |
0 |
unless defined $$opts{'allow_variables'} |
|
1785
|
0 |
0 |
$$opts{'allow_variables'} ? : |
|
1855
|
0 |
0 |
if ($$self{'PERL_SRC'}) { } |
|
1860
|
0 |
0 |
$ENV{$shr} ? : |
|
1882
|
0 |
0 |
/\$\(/ ? : |
|
1896
|
0 |
0 |
/\$\(/ ? : |
|
1919
|
0 |
0 |
unless $path |
|
1920
|
0 |
0 |
unless ref $self |
|
1922
|
0 |
0 |
if ($path =~ /\s/) |
|
1935
|
0 |
0 |
if (defined $$self{$2}) |
|
1937
|
0 |
0 |
if (ref $$self{$macro}) { } |
|
1938
|
0 |
0 |
if (ref $$self{$macro} eq 'ARRAY') { } |
|
1952
|
0 |
0 |
if ($complex) |
|
1980
|
0 |
0 |
unless $path |
|
1981
|
0 |
0 |
unless ref $self |
|
1984
|
0 |
0 |
if ($path =~ /[ \t]/) |
|
1990
|
0 |
0 |
if ($path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]])) { } |
|
|
0 |
0 |
elsif (($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $$self{$prefix}) { } |
|
1991
|
0 |
0 |
if ($force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/) { } |
|
2001
|
0 |
0 |
$vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/ ? : |
|
2002
|
0 |
0 |
$vmspre ? : |
|
2003
|
0 |
0 |
if $force_path |
|
2007
|
0 |
0 |
if $force_path |
|
2010
|
0 |
0 |
unless (defined $force_path or $fixedpath =~ /[:>(.\]]/) |
|
2011
|
0 |
0 |
if -d $fixedpath |
|
2020
|
0 |
0 |
if ($path =~ /^[\[>][^.\-]/) |