| line |
!l |
l&&!r |
l&&r |
condition |
|
171
|
0 |
0 |
0 |
$absa and $absb |
|
181
|
0 |
0 |
0 |
$ahasdir and not $bhasdir |
|
|
0 |
0 |
0 |
$bhasdir and not $ahasdir |
|
285
|
0 |
0 |
0 |
-x $file and not -d _ |
|
299
|
0 |
0 |
0 |
-x "$sysfile$ext" and not -d _ |
|
368
|
0 |
0 |
0 |
-r $file and not -d _ |
|
600
|
0 |
0 |
0 |
$macro =~ /MAN/ and $self->{$macro} eq "none" |
|
642
|
0 |
0 |
0 |
$self ne " " and defined $self->{$macro} |
|
722
|
0 |
0 |
0 |
length $quals and not $quals =~ m[/] |
|
1024
|
0 |
0 |
0 |
defined $sqval_new and length $sqval_new |
|
1531
|
0 |
0 |
0 |
$self->{'PERL_ARCHLIB'} =~ /\[-/ and $self->{'PERL_SRC'} =~ /(\[-+)/ |
|
1644
|
0 |
0 |
0 |
$extra and ref $extra eq "ARRAY" |
|
1669
|
0 |
0 |
0 |
exists $libseen{$_} && !exists $seenthis{$_} |
|
1844
|
0 |
0 |
0 |
$self->{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path) |
|
2199
|
0 |
0 |
0 |
($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $self->{$prefix} |
| line |
l |
!l |
condition |
|
267
|
0 |
0 |
$arg ||= "" |
|
432
|
0 |
0 |
$self->{'DEFINE'} ||= "" |
|
478
|
0 |
0 |
$self->{'NOECHO'} ||= "\@ " |
|
480
|
0 |
0 |
$self->{'FIRST_MAKEFILE'} || 'Descrip.MMS' |
|
482
|
0 |
0 |
$self->{'MAKE_APERL_FILE'} ||= "Makeaperl.MMS" |
|
495
|
0 |
0 |
$self->{'MACROSTART'} ||= "/Macro=(" |
|
496
|
0 |
0 |
$self->{'MACROEND'} ||= ")" |
|
497
|
0 |
0 |
$self->{'USEMAKEFILE'} ||= "/Descrip=" |
|
499
|
0 |
0 |
$self->{'EQUALIZE_TIMESTAMP'} ||= "\$(ABSPERLRUN) -we \"open F,qq{>>\$ARGV[1]};close F;utime(0,(stat(\$ARGV[0]))[9]+1,\$ARGV[1])\"" |
|
511
|
0 |
0 |
$self->{'SHELL'} ||= "Posix" |
|
751
|
0 |
0 |
$self->{'LIBPERL_A'} || 'libperl.olb' |
|
765
|
0 |
0 |
$self->{'PERLTYPE'} ||= "" |
|
874
|
0 |
0 |
$self->{'ZIPFLAGS'} ||= "-Vu" |
|
875
|
0 |
0 |
$self->{'COMPRESS'} ||= "gzip" |
|
876
|
0 |
0 |
$self->{'SUFFIX'} ||= "-gz" |
|
877
|
0 |
0 |
$self->{'SHAR'} ||= "vms_share" |
|
878
|
0 |
0 |
$self->{'DIST_DEFAULT'} ||= "zipdist" |
|
1173
|
0 |
0 |
$attribs->{'OTHERLDFLAGS'} || '' |
|
1174
|
0 |
0 |
$attribs->{'INST_DYNAMIC_DEP'} || '' |
|
1971
|
0 |
0 |
$append || 0 |
|
2056
|
0 |
0 |
$self->{'_MAX_EXEC_LEN'} ||= 256 |
|
2065
|
0 |
0 |
$self->{'EXPORT_LIST'} ||= "\$(BASEEXT).opt" |
|
2077
|
0 |
0 |
$self->{'PERL_ARCHIVEDEP'} ||= "" |
|
2078
|
0 |
0 |
$self->{'PERL_ARCHIVE_AFTER'} ||= "" |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
183
|
0 |
0 |
0 |
$bb =~ /\d/ <=> $ba =~ /\d/ or substr($ba, 0, 1) cmp substr($bb, 0, 1) |
|
480
|
0 |
0 |
0 |
$self->{'MAKEFILE'} ||= $self->{'FIRST_MAKEFILE'} || 'Descrip.MMS' |
|
481
|
0 |
0 |
0 |
$self->{'FIRST_MAKEFILE'} ||= $self->{'MAKEFILE'} |
|
483
|
0 |
0 |
0 |
$self->{'MAKEFILE_OLD'} ||= $self->eliminate_macros("\$(FIRST_MAKEFILE)_old") |
|
502
|
0 |
0 |
0 |
$self->{'MOD_INSTALL'} ||= $self->oneliner("install([ from_to => {split('\\|', )}, verbose => '\$(VERBINST)', uninstall_shadows => '\$(UNINST)', dir_mode => '\$(PERM_DIR)' ]);\n", ["-MExtUtils::Install"]) |
|
696
|
0 |
0 |
0 |
$self->{'CCFLAGS'} || $ExtUtils::MM_VMS::Config{'ccflags'} |
|
767
|
0 |
0 |
0 |
$flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'} |
|
|
0 |
0 |
0 |
$self->{'OPTIMIZE'} ||= $flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'} |
|
1112
|
0 |
0 |
0 |
$self->{'OBJECT'} =~ /\bBASEEXT\b/ or $self->{'OBJECT'} =~ /\b$self->{'BASEEXT'}\b/i |
|
1706
|
0 |
0 |
0 |
-f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, "CORE", $libperl)) |
|
1842
|
0 |
0 |
0 |
$$self{uc $var} || $ExtUtils::MM_Unix::Config_Override{lc $var} || $ExtUtils::MM_VMS::Config{lc $var} || $ExtUtils::MM_VMS::Config{lc $var_no_install} |
|
2070
|
0 |
0 |
0 |
$self->{'PERL_ARCHIVE'} ||= $self->catfile($self->{'PERL_SRC'}, "$shr.$ExtUtils::MM_VMS::Config{'dlext'}") |
|
2074
|
0 |
0 |
0 |
$self->{'PERL_ARCHIVE'} ||= $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$ExtUtils::MM_VMS::Config{'dlext'}" |
|
2199
|
0 |
0 |
0 |
$path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]]) |
|
2200
|
0 |
0 |
0 |
$force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/ |
|
2210
|
0 |
0 |
0 |
$vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/ |
|
2219
|
0 |
0 |
0 |
defined $force_path or $fixedpath =~ /[:>(.\]]/ |