line |
!l |
l&&!r |
l&&r |
condition |
169
|
0 |
0 |
0 |
$absa and $absb |
179
|
0 |
0 |
0 |
$ahasdir and not $bhasdir |
|
0 |
0 |
0 |
$bhasdir and not $ahasdir |
281
|
0 |
0 |
0 |
-x $file and not -d _ |
295
|
0 |
0 |
0 |
-x "$sysfile$ext" and not -d _ |
357
|
0 |
0 |
0 |
-r $file and not -d _ |
588
|
0 |
0 |
0 |
$macro =~ /MAN/ and $$self{$macro} eq 'none' |
630
|
0 |
0 |
0 |
$self ne ' ' and defined $$self{$macro} |
710
|
0 |
0 |
0 |
length $quals and not $quals =~ m[/] |
1319
|
0 |
0 |
0 |
$$self{'PERL_ARCHLIB'} =~ /\[-/ and $$self{'PERL_SRC'} =~ /(\[-+)/ |
1432
|
0 |
0 |
0 |
$extra and ref $extra eq 'ARRAY' |
1457
|
0 |
0 |
0 |
exists $libseen{$_} && !exists($seenthis{$_}) |
1632
|
0 |
0 |
0 |
$$self{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path) |
1990
|
0 |
0 |
0 |
($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $$self{$prefix} |
line |
l |
!l |
condition |
421
|
0 |
0 |
$$self{'DEFINE'} ||= '' |
467
|
0 |
0 |
$$self{'NOECHO'} ||= '@ ' |
469
|
0 |
0 |
$$self{'FIRST_MAKEFILE'} || 'Descrip.MMS' |
471
|
0 |
0 |
$$self{'MAKE_APERL_FILE'} ||= 'Makeaperl.MMS' |
484
|
0 |
0 |
$$self{'MACROSTART'} ||= '/Macro=(' |
485
|
0 |
0 |
$$self{'MACROEND'} ||= ')' |
486
|
0 |
0 |
$$self{'USEMAKEFILE'} ||= '/Descrip=' |
488
|
0 |
0 |
$$self{'EQUALIZE_TIMESTAMP'} ||= '$(ABSPERLRUN) -we "open F,qq{>>$ARGV[1]};close F;utime(0,(stat($ARGV[0]))[9]+1,$ARGV[1])"' |
500
|
0 |
0 |
$$self{'SHELL'} ||= 'Posix' |
738
|
0 |
0 |
$$self{'LIBPERL_A'} || 'libperl.olb' |
752
|
0 |
0 |
$$self{'PERLTYPE'} ||= '' |
861
|
0 |
0 |
$$self{'ZIPFLAGS'} ||= '-Vu' |
862
|
0 |
0 |
$$self{'COMPRESS'} ||= 'gzip' |
863
|
0 |
0 |
$$self{'SUFFIX'} ||= '-gz' |
864
|
0 |
0 |
$$self{'SHAR'} ||= 'vms_share' |
865
|
0 |
0 |
$$self{'DIST_DEFAULT'} ||= 'zipdist' |
943
|
0 |
0 |
$attribs{'DL_FUNCS'} || $$self{'DL_FUNCS'} || {} |
944
|
0 |
0 |
$attribs{'DL_VARS'} || $$self{'DL_VARS'} || [] |
945
|
0 |
0 |
$attribs{'FUNCLIST'} || $$self{'FUNCLIST'} || [] |
1027
|
0 |
0 |
$attribs{'OTHERLDFLAGS'} || '' |
1028
|
0 |
0 |
$attribs{'INST_DYNAMIC_DEP'} || '' |
1758
|
0 |
0 |
$append || 0 |
1843
|
0 |
0 |
$$self{'_MAX_EXEC_LEN'} ||= 256 |
1852
|
0 |
0 |
$$self{'EXPORT_LIST'} ||= '$(BASEEXT).opt' |
1864
|
0 |
0 |
$$self{'PERL_ARCHIVE_AFTER'} ||= '' |
line |
l |
!l&&r |
!l&&!r |
condition |
181
|
0 |
0 |
0 |
$bb =~ /\d/ <=> $ba =~ /\d/ or substr($ba, 0, 1) cmp substr($bb, 0, 1) |
469
|
0 |
0 |
0 |
$$self{'MAKEFILE'} ||= $$self{'FIRST_MAKEFILE'} || 'Descrip.MMS' |
470
|
0 |
0 |
0 |
$$self{'FIRST_MAKEFILE'} ||= $$self{'MAKEFILE'} |
472
|
0 |
0 |
0 |
$$self{'MAKEFILE_OLD'} ||= $self->eliminate_macros('$(FIRST_MAKEFILE)_old') |
490
|
0 |
0 |
0 |
$$self{'MOD_INSTALL'} ||= $self->oneliner("install([ from_to => {split(' ', )}, verbose => '\$(VERBINST)', uninstall_shadows => '\$(UNINST)', dir_mode => '\$(PERM_DIR)' ]);\n", ['-MExtUtils::Install']) |
684
|
0 |
0 |
0 |
$$self{'CCFLAGS'} || $ExtUtils::MM_VMS::Config{'ccflags'} |
754
|
0 |
0 |
0 |
$flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'} |
|
0 |
0 |
0 |
$$self{'OPTIMIZE'} ||= $flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'} |
971
|
0 |
0 |
0 |
$$self{'OBJECT'} =~ /\bBASEEXT\b/ or $$self{'OBJECT'} =~ /\b$$self{'BASEEXT'}\b/i |
1060
|
0 |
0 |
0 |
$$self{'OBJECT'} or @{[] unless $$self{'C'};} |
|
0 |
0 |
0 |
$$self{'OBJECT'} or @{[] unless $$self{'C'};} or $$self{'MYEXTLIB'} |
1494
|
0 |
0 |
0 |
-f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, 'CORE', $libperl)) |
1628
|
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} |
1856
|
0 |
0 |
0 |
$$self{'PERL_ARCHIVE'} ||= $self->catfile($$self{'PERL_SRC'}, "$shr.$ExtUtils::MM_VMS::Config{'dlext'}") |
1860
|
0 |
0 |
0 |
$$self{'PERL_ARCHIVE'} ||= $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$ExtUtils::MM_VMS::Config{'dlext'}" |
1990
|
0 |
0 |
0 |
$path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]]) |
1991
|
0 |
0 |
0 |
$force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/ |
2001
|
0 |
0 |
0 |
$vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/ |
2010
|
0 |
0 |
0 |
defined $force_path or $fixedpath =~ /[:>(.\]]/ |