| 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
|
|
284
|
0 |
0 |
0 |
-x $file and not -d _
|
|
298
|
0 |
0 |
0 |
-x "$sysfile$ext" and not -d _
|
|
367
|
0 |
0 |
0 |
-r $file and not -d _
|
|
599
|
0 |
0 |
0 |
$macro =~ /MAN/ and $self->{$macro} eq "none"
|
|
641
|
0 |
0 |
0 |
$self ne " " and defined $self->{$macro}
|
|
721
|
0 |
0 |
0 |
length $quals and not $quals =~ m[/]
|
|
1023
|
0 |
0 |
0 |
defined $sqval_new and length $sqval_new
|
|
1530
|
0 |
0 |
0 |
$self->{'PERL_ARCHLIB'} =~ /\[-/ and $self->{'PERL_SRC'} =~ /(\[-+)/
|
|
1643
|
0 |
0 |
0 |
$extra and ref $extra eq "ARRAY"
|
|
1668
|
0 |
0 |
0 |
exists $libseen{$_} && !exists $seenthis{$_}
|
|
1843
|
0 |
0 |
0 |
$self->{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path)
|
|
2198
|
0 |
0 |
0 |
($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $self->{$prefix}
|
| line |
l |
!l |
condition |
|
431
|
0 |
0 |
$self->{'DEFINE'} ||= ""
|
|
477
|
0 |
0 |
$self->{'NOECHO'} ||= "\@ "
|
|
479
|
0 |
0 |
$self->{'FIRST_MAKEFILE'} || 'Descrip.MMS'
|
|
481
|
0 |
0 |
$self->{'MAKE_APERL_FILE'} ||= "Makeaperl.MMS"
|
|
494
|
0 |
0 |
$self->{'MACROSTART'} ||= "/Macro=("
|
|
495
|
0 |
0 |
$self->{'MACROEND'} ||= ")"
|
|
496
|
0 |
0 |
$self->{'USEMAKEFILE'} ||= "/Descrip="
|
|
498
|
0 |
0 |
$self->{'EQUALIZE_TIMESTAMP'} ||= "\$(ABSPERLRUN) -we \"open F,qq{>>\$ARGV[1]};close F;utime(0,(stat(\$ARGV[0]))[9]+1,\$ARGV[1])\""
|
|
510
|
0 |
0 |
$self->{'SHELL'} ||= "Posix"
|
|
750
|
0 |
0 |
$self->{'LIBPERL_A'} || 'libperl.olb'
|
|
764
|
0 |
0 |
$self->{'PERLTYPE'} ||= ""
|
|
873
|
0 |
0 |
$self->{'ZIPFLAGS'} ||= "-Vu"
|
|
874
|
0 |
0 |
$self->{'COMPRESS'} ||= "gzip"
|
|
875
|
0 |
0 |
$self->{'SUFFIX'} ||= "-gz"
|
|
876
|
0 |
0 |
$self->{'SHAR'} ||= "vms_share"
|
|
877
|
0 |
0 |
$self->{'DIST_DEFAULT'} ||= "zipdist"
|
|
1172
|
0 |
0 |
$attribs->{'OTHERLDFLAGS'} || ''
|
|
1173
|
0 |
0 |
$attribs->{'INST_DYNAMIC_DEP'} || ''
|
|
1970
|
0 |
0 |
$append || 0
|
|
2055
|
0 |
0 |
$self->{'_MAX_EXEC_LEN'} ||= 256
|
|
2064
|
0 |
0 |
$self->{'EXPORT_LIST'} ||= "\$(BASEEXT).opt"
|
|
2076
|
0 |
0 |
$self->{'PERL_ARCHIVEDEP'} ||= ""
|
|
2077
|
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)
|
|
479
|
0 |
0 |
0 |
$self->{'MAKEFILE'} ||= $self->{'FIRST_MAKEFILE'} || 'Descrip.MMS'
|
|
480
|
0 |
0 |
0 |
$self->{'FIRST_MAKEFILE'} ||= $self->{'MAKEFILE'}
|
|
482
|
0 |
0 |
0 |
$self->{'MAKEFILE_OLD'} ||= $self->eliminate_macros("\$(FIRST_MAKEFILE)_old")
|
|
501
|
0 |
0 |
0 |
$self->{'MOD_INSTALL'} ||= $self->oneliner("install([ from_to => {split('\\|', <STDIN>)}, verbose => '\$(VERBINST)', uninstall_shadows => '\$(UNINST)', dir_mode => '\$(PERM_DIR)' ]);\n", ["-MExtUtils::Install"])
|
|
695
|
0 |
0 |
0 |
$self->{'CCFLAGS'} || $ExtUtils::MM_VMS::Config{'ccflags'}
|
|
766
|
0 |
0 |
0 |
$flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'}
|
|
|
0 |
0 |
0 |
$self->{'OPTIMIZE'} ||= $flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'}
|
|
1111
|
0 |
0 |
0 |
$self->{'OBJECT'} =~ /\bBASEEXT\b/ or $self->{'OBJECT'} =~ /\b$self->{'BASEEXT'}\b/i
|
|
1705
|
0 |
0 |
0 |
-f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, "CORE", $libperl))
|
|
1841
|
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}
|
|
2069
|
0 |
0 |
0 |
$self->{'PERL_ARCHIVE'} ||= $self->catfile($self->{'PERL_SRC'}, "$shr.$ExtUtils::MM_VMS::Config{'dlext'}")
|
|
2073
|
0 |
0 |
0 |
$self->{'PERL_ARCHIVE'} ||= $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$ExtUtils::MM_VMS::Config{'dlext'}"
|
|
2198
|
0 |
0 |
0 |
$path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]])
|
|
2199
|
0 |
0 |
0 |
$force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/
|
|
2209
|
0 |
0 |
0 |
$vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/
|
|
2218
|
0 |
0 |
0 |
defined $force_path or $fixedpath =~ /[:>(.\]]/
|