Home
last modified time | relevance | path

Searched refs:Config (Results 1 – 25 of 393) sorted by relevance

12345678910>>...16

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DConfig.t15 ok(keys %Config > 500, "Config has more than 500 entries");
17 ok(each %Config);
19 is($Config{PERL_REVISION}, 5, "PERL_REVISION is 5");
27 isnt($Config{$new}, undef, "$new is defined");
28 is($Config{$new}, $Config{$old}, "$new is aliased to $old");
31 ok( exists $Config{cc}, "has cc");
33 ok( exists $Config{ccflags}, "has ccflags");
35 ok(!exists $Config{python}, "has no python");
37 ok( exists $Config{d_fork}, "has d_fork");
39 ok(!exists $Config{d_bork}, "has no d_bork");
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CPAN/
H A DFirstTime.pm41 use Config;
45 eval {require CPAN::Config;};
46 $CPAN::Config ||= {};
82 $CPAN::Config->{urllist} ||= [];
101 my $cpan_home = $CPAN::Config->{cpan_home} || File::Spec->catdir($ENV{HOME}, ".cpan");
141 $CPAN::Config->{cpan_home} = $ans;
152 $CPAN::Config->{keep_source_where} = File::Spec->catdir($CPAN::Config->{cpan_home},"sources");
153 $CPAN::Config->{build_dir} = File::Spec->catdir($CPAN::Config->{cpan_home},"build");
166 $default = $CPAN::Config->{build_cache} || 10;
168 $CPAN::Config->{build_cache} = $ans;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Errno/
H A DErrno_pm.PL2 use Config;
27 if (($^O eq 'VMS') && ($Config{vms_cc_type} ne 'gnuc')) {
32 } elsif ($Config{gccversion} ne ''
38 unless(open(FH,"$Config{cc} -E -dM $Config{cppflags} $file |")) {
74 $cppstdin = $Config{cppstdin};
84 return "$cppstdin $Config{cppflags} $Config{cppminus}";
91 if ($Config{vms_cc_type} eq 'decc') {
93 } elsif ($Config{vms_cc_type} eq 'vaxc') {
95 } elsif ($Config{vms_cc_type} eq 'gcc') {
104 } elsif ($Config{archname} eq 'epoc') {
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/DynaLoader/
H A DDynaLoader_pm.PL1 use Config;
67 to_string($Config::Config{'dlext'}), ",",
68 to_string($Config::Config{'dlsrc'}), ")\n;" ;
110 # The below \@dl_library_path has been expanded (%Config) in Perl build time.
132 $ldlibpthname = $Config::Config{ldlibpthname};
133 $ldlibpthname_defined = defined $Config::Config{ldlibpthname} ? 1 : 0;
134 $pthsep = $Config::Config{path_sep};
179 # The below \@dl_library_path has been expanded (%Config, %ENV)
371 print OUT ' my $dl_ext= ' . to_string($Config::Config{'dlext'}) .
373 print OUT ' my $dl_so = ' . to_string($Config::Config{'so'}) .
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/
H A DMakefile.PL26 use Config qw(%Config);
35 if (defined($Config{ccname})) {
36 if (grep(/VMS_VAX/, @INC) && ($Config{ccname} eq 'DEC')) {
61 if (exists $Config{d_u32align}) {
63 print "not " unless $Config{d_u32align};
65 return !$Config{d_u32align};
73 if ($^O eq 'hpux' && $Config{osvers} < 11.0) {
143 my $cc_cmd = "$Config{cc} $Config{ccflags} -I$Config{archlibexp}/CORE";
144 my $exe = "u32align$Config{exe_ext}";
147 $rc = system("$cc_cmd $Config{ldflags} u32align.c $Config{libs}");
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DInstalled.t19 use Config;
29 my $mandirs = !!$Config{man1direxp} + !!$Config{man3direxp};
45 my $dir = $Config{$path.'exp'};
55 my $prefix = $Config{prefix} || $Config{prefixexp};
62 $prefix = $Config{prefix} if $prefix eq 'p:' && $^O eq 'MSWin32';
106 local *ExtUtils::Installed::Config;
108 %ExtUtils::Installed::Config = (
109 %Config,
120 is( $realei->{Perl}{version}, $Config{version},
140 ($Config{man1direxp} ?
[all …]
H A DINST_PREFIX.t24 use Config;
125 !$Config{"install$var"};
133 undef *ExtUtils::MM_Unix::Config;
135 %ExtUtils::MM_Unix::Config = %Config;
136 *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
138 $ExtUtils::MM_Unix::Config{installman1dir} = '';
139 $ExtUtils::MM_Unix::Config{installman3dir} = '';
159 undef *ExtUtils::MM_Unix::Config;
161 undef *ExtUtils::MM_VMS::Config;
163 %ExtUtils::MM_Unix::Config = %Config;
[all …]
H A DEmbed.t11 use Config;
21 my $cc = $Config{'cc'};
24 my $skip_exe = $^O eq 'os2' && $Config{ldflags} =~ /(?<!\S)-Zexe\b/;
26 $exe .= $Config{'exe_ext'} unless $skip_exe; # Linker will auto-append it
27 my $obj = 'embed_test' . $Config{'obj_ext'};
50 push(@cmd2,$Config{'ld'}, $Config{'ldflags'}, "/exe=$exe");
70 push(@cmd,'-link',"-libpath:$lib",$Config{'libperl'},$Config{'libs'});
73 push(@cmd,"-L$lib",File::Spec->catfile($lib,$Config{'libperl'}),$Config{'libc'});
82 if $^O eq 'os2' and $Config{ldflags} =~ /(?<!\S)-Zomf\b/;
97 my $v_e_r_s = $Config{version};
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/Liblist/
H A DKid.pm15 use Config;
30 if ($^O =~ 'os2' and $Config{perllibs}) {
35 $potential_libs .= $Config{perllibs};
40 my($so) = $Config{so};
41 my($libs) = defined $Config{perllibs} ? $Config{perllibs} : $Config{libs};
42 my $Config_libext = $Config{lib_ext} || ".a";
50 my(@libpath) = split " ", $Config{'libpth'};
69 if ($Config{'lddlflags'} =~ /-Wl,-R/) {
71 } elsif ($Config{'lddlflags'} =~ /-R/) {
129 && (($Config{'dlsrc'} ne "dl_dld.xs") || ($thislib eq "m"))){
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/
H A DMakefile.PL29 use Config;
40 my $ld_exeext = ($^O eq 'os2' and $Config{ldflags} =~ /-Zexe\b/) ? '.exe' : '';
102 my $obj_ext = $Config{obj_ext} || ".o";
119 $COREincdir = File::Spec->catdir($Config{'archlibexp'}, 'CORE');
122 my $ccflags = $Config{'ccflags'} . ' ' . "-I$COREincdir";
128 $cccmd = "$Config{'cc'} /include=([---]) $tmp.c";
130 my $perl_core = $Config{'installarchlib'};
132 $cccmd = "$Config{'cc'} /include=(perl_root:[000000],$perl_core) $tmp.c";
142 $cccmd = "$Config{'cc'} -o $tmp $ccflags $tmp.c @$LIBS $errornull"
153 for ("$tmp.c", "$tmp$obj_ext", "$tmp.com", "$tmp$Config{exe_ext}") {
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DMksymlists.pm9 use Config;
77 require Config;
78 my $threaded = ($Config::Config{archname} =~ /-thread/ ? " threaded" : "");
86 my $patchlevel = " pl$Config{perl_patchlevel}" || '';
88 $Config::Config{version}, $threaded, $patchlevel, $data->{NAME};
94 $comment = "$comment (Perl-config: $Config{config_args})";
120 require Config;
130 if ($Config::Config{'cc'} !~ /^gcc/i) {
140 if ($Config::Config{'cc'} =~ /^bcc/i) {
165 require Config; # a reminder for once we do $^O
[all …]
H A DMM_NW5.pm22 use Config;
37 my $BORLAND = $Config{'cc'} =~ /^bcc/i;
38 my $GCC = $Config{'cc'} =~ /^gcc/i;
39 my $DMAKE = $Config{'make'} =~ /^dmake/i;
75 my $libpth = $Config{'libpth'};
79 $self->{'BASE_IMPORT'} = $Config{'base_import'};
86 $self->{'NLM_VERSION'} = $Config{'nlm_version'};
87 $self->{'MPKTOOL'} = $Config{'mpktool'};
88 $self->{'TOOLPATH'} = $Config{'toolpath'};
101 ($self->{INCLUDE} = $Config{'incpath'}) =~ s/([ ]*)-I/;/g;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Dconfig.t55 use Net::Config;
61 is( Net::Config->requires_firewall(), 0,
65 is( Net::Config->requires_firewall('a.host.not.there'), -1,
70 is( Net::Config->requires_firewall('127.0.0.1'), 0,
74 is( Net::Config->requires_firewall('127.0.0.1'), 0,
76 is( Net::Config->requires_firewall('192.168.10.0'), 1,
81 is( Net::Config->requires_firewall('10.10.255.254'), 0,
83 is( Net::Config->requires_firewall('192.168.10.0'), 1,
86 is( \&Net::Config::is_external, \&Net::Config::requires_firewall,
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/utils/
H A Dperlivp.PL3 use Config;
31 $Config{'startperl'}
32 eval 'exec $Config{'perlpath'} -S \$0 \${1+"\$@"}'
87 if (defined($Config{'perlpath'})) { $perlpath = $Config{'perlpath'}; }
93 if (defined($Config{'useithreads'})) { $useithreads = $Config{'useithreads'}; }
203 if (defined($Config{'extensions'})) {
204 my @extensions = split(/\s+/,$Config{'extensions'});
315 while (($var, $val) = each %Config) {
481 exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
H A Dperlcc.PL3 use Config;
31 $Config{startperl}
32 eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
293 if ($^O eq 'MSWin32' && $Config{cc} =~ /^cl/i) {
331 $link .= " perl5$Config{PERL_VERSION}.lib kernel32.lib msvcrt.lib";
332 vprint 3, "running $Config{cc} $compile";
333 system("$Config{cc} $compile");
334 vprint 3, "running $Config{ld} $link";
335 system("$Config{ld} $link");
347 vprint 3, "running $Config{cc} $command";
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IPC/SysV/t/
H A Dipcsysv.t8 require Config; import Config;
12 if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
14 } elsif ($Config{'d_sem'} ne 'define') {
16 } elsif ($Config{'d_msg'} ne 'define') {
61 if ($Config{'d_msgget'} eq 'define' &&
62 $Config{'d_msgctl'} eq 'define' &&
63 $Config{'d_msgsnd'} eq 'define' &&
64 $Config{'d_msgrcv'} eq 'define') {
146 if($Config{'d_semget'} eq 'define' &&
147 $Config{'d_semctl'} eq 'define') {
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dfflush.t13 use Config;
20 my $useperlio = defined $Config{useperlio} ? $Config{useperlio} eq 'define' ? 1 : 0 : 0;
21 my $fflushNULL = defined $Config{fflushNULL} ? $Config{fflushNULL} eq 'define' ? 1 : 0 : 0;
22 my $d_sfio = defined $Config{d_sfio} ? $Config{d_sfio} eq 'define' ? 1 : 0 : 0;
23 my $fflushall = defined $Config{fflushall} ? $Config{fflushall} eq 'define' ? 1 : 0 : 0;
24 my $d_fork = defined $Config{d_fork} ? $Config{d_fork} eq 'define' ? 1 : 0 : 0;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/
H A Dcommonsense.t5 require Config; import Config;
6 if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){
10 if (($Config{'extensions'} !~ /\bFcntl\b/) ){
14 if (($Config{'extensions'} !~ /\bIO\b/) ){
19 if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A Dcc_harness1 use Config;
3 $libdir = $ENV{PERL_SRC} || "$Config{installarchlib}/CORE";
6 $linkargs = sprintf("%s $libdir/$Config{libperl} %s",
7 @Config{qw(ldflags libs)});
10 $cccmd = "$Config{cc} $Config{ccflags} -I$libdir @ARGV $linkargs";
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/
H A Dposix.t6 require Config; import Config;
7 if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
84 my $todo = $^O eq 'netbsd' && $Config{osvers}=~/^1\.6/;
85 my $why_todo = "# TODO $^O $Config{osvers} seems to loose blocked signals";
95 || ($^O eq 'darwin' && $Config{osvers} lt '6.6');
142 skip("strtod() not present", 1) unless $Config{d_strtod};
144 $lc = &POSIX::setlocale(&POSIX::LC_NUMERIC, 'C') if $Config{d_setlocale};
150 &POSIX::setlocale(&POSIX::LC_NUMERIC, $lc) if $Config{d_setlocale};
154 skip("strtol() not present", 2) unless $Config{d_strtol};
162 skip("strtoul() not present", 2) unless $Config{d_strtoul};
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dconfigpm67 package Config;
68 @EXPORT = qw(%%Config);
88 *{"$callpkg\::Config"} = \%%Config if $export_Config;
341 my $v = (exists $Config{$_}) ? $Config{$_} : 'UNKNOWN';
421 tie %%Config, 'Config', {
433 Config - access Perl configuration information
437 use Config;
438 if ($Config{'cc'} =~ /gcc/) {
442 use Config qw(myconfig config_sh config_vars config_re);
455 The Config module contains all the information that was available to
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dperldebguts.pod269 entering Config::BEGIN
272 Package lib/Config.pm.
273 entering Config::TIEHASH
276 entering Config::myconfig
277 entering Config::FETCH
278 entering Config::FETCH
279 entering Config::FETCH
280 entering Config::FETCH
285 entering Config::BEGIN
288 exited Config::BEGIN
[all …]
H A Dpod2html.PL3 use Config;
29 $Config{startperl}
30 eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
182 exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DMakefile.PL23 use Config;
26 my $e = $Config{'exe_ext'};
27 my $o = $Config{'obj_ext'};
30 if ($Config{'cc'} =~ /^cl/i) {
33 elsif ($Config{'cc'} =~ /^bcc/i) {
51 "\nLIBS = $Config::Config{libs}\n"
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/
H A DFind.pm130 require Config;
131 push(@search, $Config::Config{scriptdir})
132 if -d $Config::Config{scriptdir};
158 require Config;
174 …qq!^(?i:site(_perl)?/|\Q$Config::Config{archname}\E/|\\d+\\.\\d+([_.]?\\d+)?/|pod/(?=.*?\\.pod\\z)…
391 require Config;
419 push (@search_dirs, $Config::Config{'scriptdir'})
420 if -d $Config::Config{'scriptdir'};

12345678910>>...16