5 # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
6 # 2002, 2003, 2004, 2005, 2006, 2007 Larry Wall and others.
14 # lib/Cross.pm (optionally)
17 # from the contents of the static files
22 # and from the contents of the Configure-generated file
26 # Note that output directory is xlib/[cross-name]/ for cross-compiling
28 # It will only update Config.pm and Config_heavy.pl if the contents of
29 # either file would be different. Note that *both* files are updated in
30 # this case, since for example an extension makefile that has a dependency
31 # on Config.pm should trigger even if only Config_heavy.pl has changed.
33 sub usage { die <<EOF }
35 --cross=PLATFORM cross-compile for a different platform
36 --no-glossary don't include Porting/Glossary in lib/Config.pod
37 --chdir=dir change directory before writing files
41 use vars qw(%Config $Config_SH_expanded);
43 my $how_many_common = 22;
45 # commonly used names to precache (and hence lookup fastest)
48 while ($how_many_common--) {
51 /^(\S+):\s*(\d+)$/ or die "Malformed line '$_'";
55 # Post 37589e1eefb1bd62 DynaLoader defaults to reading these at runtime.
56 # Ideally we're redo the data below, but Fotango's build system made it
57 # wonderfully easy to instrument, and no longer exists.
58 $Common{$_} = $_ foreach qw(dlext so);
60 # names of things which may need to have slashes changed to double-colons
61 my %Extensions = map {($_,$_)}
62 qw(dynamic_ext static_ext extensions known_extensions);
64 # The plan is that this information is used by ExtUtils::MakeMaker to generate
65 # Makefile dependencies, rather than hardcoding a list, which has become out
66 # of date. However, currently, MM_Unix.pm and MM_VMS.pm have *different* lists,
67 # *and* descrip_mms.template doesn't actually install all the headers.
68 # The "Unix" list seems to (attempt to) avoid the generated headers, which I'm
69 # not sure is the right thing to do. Also, not certain whether it would be
70 # easier to parse MANIFEST to get these (adding config.h, and potentially
71 # removing others), but for now, stick to a hard coded list.
73 # Could use a map to add ".h", but I suspect that it's easier to use literals,
74 # so that anyone using grep will find them
75 # This is the list from MM_VMS, plus pad.h, parser.h, perlsfio.h utf8.h
76 # which it installs. It *doesn't* install perliol.h - FIXME.
77 my @header_files = qw(EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h
78 embed.h embedvar.h form.h gv.h handy.h hv.h intrpvar.h
79 iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h
80 pad.h parser.h patchlevel.h perl.h perlio.h perlsdio.h
81 perlsfio.h perlvars.h perly.h pp.h pp_proto.h proto.h
82 regcomp.h regexp.h regnodes.h scope.h sv.h thread.h utf8.h
85 # No point in adding fakethr.h, as it no longer works
87 $^O eq 'VMS' ? 'vmsish.h' : qw(dosish.h perliol.h time64.h unixish.h);
89 my $header_files = ' return qw(' . join(' ', sort @header_files) . ');';
90 $header_files =~ s/(?=.{64}) # If line is still overlength
91 (.{1,64})\ # Split at the last convenient space
94 # allowed opts as well as specifies default and initial values
96 'cross' => '', # --cross=PLATFORM - crosscompiling for PLATFORM
97 'glossary' => 1, # --no-glossary - no glossary file inclusion,
99 'chdir' => '', # --chdir=dir - change directory before writing files
103 # user specified options
106 (map {/^--([\-_\w]+)=(.*)$/} @ARGV),
107 # --opt --no-opt --noopt
108 (map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV),
111 my %opts = (%Allowed_Opts, %given_opts);
113 for my $opt (grep {!exists $Allowed_Opts{$_}} keys %given_opts) {
114 warn "option '$opt' is not recognized";
117 @ARGV = grep {!/^--/} @ARGV;
126 chdir $Opts{chdir} or die "$0: could not chdir $Opts{chdir}: $!"
129 my ($Config_SH, $Config_PM, $Config_heavy, $Config_POD);
130 my $Glossary = 'Porting/Glossary';
133 # creating cross-platform config file
135 mkdir "xlib/$Opts{cross}";
136 $Config_PM = "xlib/$Opts{cross}/Config.pm";
137 $Config_POD = "xlib/$Opts{cross}/Config.pod";
138 $Config_SH = "Cross/config-$Opts{cross}.sh";
141 $Config_PM = "lib/Config.pm";
142 $Config_POD = "lib/Config.pod";
143 $Config_SH = "config.sh";
145 ($Config_heavy = $Config_PM) =~ s/\.pm$/_heavy.pl/;
146 die "Can't automatically determine name for Config_heavy.pl from '$Config_PM'"
147 if $Config_heavy eq $Config_PM;
152 $heavy_txt .= <<'ENDOFBEG';
153 # This file was created by configpm when Perl was built. Any changes
154 # made to this file will be lost the next time perl is built.
161 sub bincompat_options {
162 return split ' ', (Internals::V())[0];
165 sub non_bincompat_options {
166 return split ' ', (Internals::V())[1];
170 return (Internals::V())[2]
174 my (undef, undef, undef, @patches) = Internals::V();
179 my ($bincompat, $non_bincompat, $date, @patches) = Internals::V();
181 my $opts = join ' ', sort split ' ', "$bincompat $non_bincompat";
183 # wrap at 76 columns.
185 $opts =~ s/(?=.{53})(.{1,53}) /$1\n /mg;
187 print Config::myconfig();
189 print "\nCharacteristics of this PERLSHR image: \n";
191 print "\nCharacteristics of this binary (from libperl): \n";
194 print " Compile-time options: $opts\n";
197 print " Locally applied patches:\n";
198 print "\t$_\n" foreach @patches;
201 print " Built under $^O\n";
203 print " $date\n" if defined $date;
205 my @env = map { "$_=\"$ENV{$_}\"" } sort grep {/^PERL/} keys %ENV;
206 push @env, "CYGWIN=\"$ENV{CYGWIN}\"" if $^O eq 'cygwin' and $ENV{CYGWIN};
210 print " $_\n" foreach @env;
213 print " $_\n" foreach @INC;
219 $heavy_txt .= $header_files . "\n}\n\n";
221 my $export_funcs = <<'EOT';
222 my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
223 config_re => 1, compile_date => 1, local_patches => 1,
224 bincompat_options => 1, non_bincompat_options => 1,
228 my %export_ok = eval $export_funcs or die;
230 $config_txt .= sprintf << 'EOT', $export_funcs;
231 # This file was created by configpm when Perl was built. Any changes
232 # made to this file will be lost the next time perl is built.
234 # for a description of the variables, please have a look at the
235 # Glossary file, as written in the Porting folder, or use the url:
236 # http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary
243 # Skip @Config::EXPORT because it only contains %%Config, which we special
244 # case below as it's not a function. @Config::EXPORT won't change in the
245 # lifetime of Perl 5.
247 @Config::EXPORT = qw(%%Config);
248 @Config::EXPORT_OK = keys %%Export_Cache;
250 # Need to stub all the functions to make code such as print Config::config_sh
255 $config_txt .= "sub $_;\n" foreach sort keys %export_ok;
257 my $myver = sprintf "%vd", $^V;
259 $config_txt .= sprintf <<'ENDOFBEG', ($myver) x 3;
261 # Define our own import method to avoid pulling in the full Exporter:
264 @_ = @Config::EXPORT unless @_;
266 my @funcs = grep $_ ne '%%Config', @_;
267 my $export_Config = @funcs < @_ ? 1 : 0;
270 my $callpkg = caller(0);
271 foreach my $func (@funcs) {
272 die qq{"$func" is not exported by the Config module\n}
273 unless $Export_Cache{$func};
274 *{$callpkg.'::'.$func} = \&{$func};
277 *{"$callpkg\::Config"} = \%%Config if $export_Config;
281 die "Perl lib version (%s) doesn't match executable '$0' version ($])"
285 or die "Perl lib version (%s) doesn't match executable '$0' version (" .
286 sprintf("v%%vd",$^V) . ")";
300 open(CONFIG_SH, $Config_SH) || die "Can't open $Config_SH: $!";
301 while (<CONFIG_SH>) {
302 next if m:^#!/bin/sh:;
304 # Catch PERL_CONFIG_SH=true and PERL_VERSION=n line from Configure.
305 s/^(\w+)=(true|\d+)\s*$/$1='$2'\n/ or m/^(\w+)='(.*)'$/;
306 my($k, $v) = ($1, $2);
308 # grandfather PATCHLEVEL and SUBVERSION and CONFIG
310 if ($k eq 'PERL_VERSION') {
311 push @v_others, "PATCHLEVEL='$v'\n";
313 elsif ($k eq 'PERL_SUBVERSION') {
314 push @v_others, "SUBVERSION='$v'\n";
316 elsif ($k eq 'PERL_CONFIG_SH') {
317 push @v_others, "CONFIG='$v'\n";
321 # We can delimit things in config.sh with either ' or ".
322 unless ($in_v or m/^(\w+)=(['"])(.*\n)/){
323 push(@non_v, "#$_"); # not a name='value' line
331 ($name,$val) = ($1,$3);
333 $in_v = $val !~ /$quote\n/;
336 s,/,::,g if $Extensions{$name};
338 $val =~ s/$quote\n?\z//;
340 my $line = "$name=$quote$val$quote\n";
341 push(@v_others, $line);
342 $seen_quotes{$quote}++;
347 # This is somewhat grim, but I want the code for parsing config.sh here and
348 # now so that I can expand $Config{ivsize} and $Config{ivtype}
350 my $fetch_string = <<'EOT';
352 # Search for it in the big string
354 my($self, $key) = @_;
358 if ($seen_quotes{'"'}) {
359 # We need the full ' and " code
361 $fetch_string .= <<'EOT';
362 return undef unless my ($quote_type, $value) = $Config_SH_expanded =~ /\n$key=(['"])(.*?)\1\n/s;
364 # If we had a double-quote, we'd better eval it so escape
365 # sequences and such can be interpolated. Since the incoming
366 # value is supposed to follow shell rules and not perl rules,
367 # we escape any perl variable markers
369 # Historically, since " 'support' was added in change 1409, the
370 # interpolation was done before the undef. Stick to this arguably buggy
371 # behaviour as we're refactoring.
372 if ($quote_type eq '"') {
373 $value =~ s/\$/\\\$/g;
374 $value =~ s/\@/\\\@/g;
375 eval "\$value = \"$value\"";
378 # So we can say "if $Config{'foo'}".
379 $self->{$key} = $value eq 'undef' ? undef : $value; # cache it
384 # We only have ' delimted.
386 $fetch_string .= <<'EOT';
387 return undef unless $Config_SH_expanded =~ /\n$key=\'(.*?)\'\n/s;
388 # So we can say "if $Config{'foo'}".
389 $self->{$key} = $1 eq 'undef' ? undef : $1;
398 # Calculation for the keys for byteorder
399 # This is somewhat grim, but I need to run fetch_string here.
400 our $Config_SH_expanded = join "\n", '', @v_others;
402 my $t = fetch_string ({}, 'ivtype');
403 my $s = fetch_string ({}, 'ivsize');
405 # byteorder does exist on its own but we overlay a virtual
406 # dynamically recomputed value.
408 # However, ivtype and ivsize will not vary for sane fat binaries
410 my $f = $t eq 'long' ? 'L!' : $s == 8 ? 'Q': 'I';
413 if ($s == 4 || $s == 8) {
414 my $list = join ',', reverse(2..$s);
416 $byteorder_code = <<"EOT";
419 foreach my \$c ($list) { \$i |= ord(\$c); \$i <<= 8 }
421 our \$byteorder = join('', unpack('$format', pack('$f', \$i)));
424 $byteorder_code = "our \$byteorder = '?'x$s;\n";
429 if (fetch_string({},'userelocatableinc')) {
430 foreach my $what (qw(prefixexp
479 installvendorhtml1dir
480 installvendorhtml3dir
486 push @need_relocation, $what if fetch_string({}, $what) =~ m!^\.\.\./!;
491 @need_relocation{@need_relocation} = @need_relocation;
493 # This can have .../ anywhere:
494 if (fetch_string({}, 'otherlibdirs') =~ m!\.\.\./!) {
495 $need_relocation{otherlibdirs} = 'otherlibdirs';
498 my $relocation_code = <<'EOT';
502 return $libdir unless $libdir =~ s!^\.\.\./!!;
504 if ($prefix =~ s!/[^/]*$!!) {
505 while ($libdir =~ m!^\.\./!) {
506 # Loop while $libdir starts "../" and $prefix still has a trailing
508 last unless $prefix =~ s!/([^/]+)$!!;
509 # but bail out if the directory we picked off the end of $prefix is .
511 if ($1 eq '.' or $1 eq '..') {
512 # Undo! This should be rare, hence code it this way rather than a
513 # check each time before the s!!! above.
514 $prefix = "$prefix/$1";
517 # Remove that leading ../ and loop again
518 substr ($libdir, 0, 3, '');
520 $libdir = "$prefix/$libdir";
526 if (%need_relocation) {
527 my $relocations_in_common;
528 # otherlibdirs only features in the hash
529 foreach (keys %need_relocation) {
530 $relocations_in_common++ if $Common{$_};
532 if ($relocations_in_common) {
533 $config_txt .= $relocation_code;
535 $heavy_txt .= $relocation_code;
539 $heavy_txt .= join('', @non_v) . "\n";
541 # copy config summary format from the myconfig.SH script
542 $heavy_txt .= "our \$summary = <<'!END!';\n";
543 open(MYCONFIG,"<myconfig.SH") || die "open myconfig.SH failed: $!";
544 1 while defined($_ = <MYCONFIG>) && !/^Summary of/;
545 do { $heavy_txt .= $_ } until !defined($_ = <MYCONFIG>) || /^\s*$/;
548 $heavy_txt .= "\n!END!\n" . <<'EOT';
549 my $summary_expanded;
552 return $summary_expanded if $summary_expanded;
553 ($summary_expanded = $summary) =~ s{\$(\w+)}
556 if ($1 eq 'git_ancestor_line') {
557 if ($Config::Config{git_ancestor}) {
558 $c= "\n Ancestor: $Config::Config{git_ancestor}";
563 $c = $Config::Config{$1};
565 defined($c) ? $c : 'undef'
574 $heavy_txt .= join('', sort @v_others) . "!END!\n";
576 # Only need the dynamic byteorder code in Config.pm if 'byteorder' is one of
578 if ($Common{byteorder}) {
579 $config_txt .= $byteorder_code;
581 $heavy_txt .= $byteorder_code;
584 if (@need_relocation) {
585 $heavy_txt .= 'foreach my $what (qw(' . join (' ', @need_relocation) .
587 s/^($what=)(['"])(.*?)\2/$1 . $2 . relocate_inc($3) . $2/me;
590 # Currently it only makes sense to do the ... relocation on Unix, so there's
591 # no need to emulate the "which separator for this platform" logic in perl.c -
592 # ':' will always be applicable
593 if ($need_relocation{otherlibdirs}) {
594 $heavy_txt .= << 'EOT';
595 s{^(otherlibdirs=)(['"])(.*?)\2}
596 {$1 . $2 . join ':', map {relocate_inc($_)} split ':', $3 . $2}me;
601 $heavy_txt .= <<'EOT';
602 s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
604 my $config_sh_len = length $_;
606 our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL';
609 foreach my $prefix (qw(ccflags ldflags)) {
610 my $value = fetch_string ({}, $prefix);
611 my $withlargefiles = fetch_string ({}, $prefix . "_uselargefiles");
612 if (defined $withlargefiles) {
613 $value =~ s/\Q$withlargefiles\E\b//;
614 $heavy_txt .= "${prefix}_nolargefiles='$value'\n";
618 foreach my $prefix (qw(libs libswanted)) {
619 my $value = fetch_string ({}, $prefix);
620 my $withlf = fetch_string ({}, 'libswanted_uselargefiles');
621 next unless defined $withlf;
623 = split(' ', fetch_string ({}, 'libswanted_uselargefiles'));
626 @lflibswanted{@lflibswanted} = ();
627 if ($prefix eq 'libs') {
628 my @libs = grep { /^-l(.+)/ &&
629 not exists $lflibswanted{$1} }
630 split(' ', fetch_string ({}, 'libs'));
631 $value = join(' ', @libs);
633 my @libswanted = grep { not exists $lflibswanted{$_} }
634 split(' ', fetch_string ({}, 'libswanted'));
635 $value = join(' ', @libswanted);
638 $heavy_txt .= "${prefix}_nolargefiles='$value'\n";
641 $heavy_txt .= "EOVIRTUAL\n";
643 $heavy_txt .= <<'ENDOFGIT';
645 # do not have hairy conniptions if this isnt available
646 require 'Config_git.pl';
647 $Config_SH_expanded .= $Config::Git_Data;
649 } or warn "Warning: failed to load Config_git.pl, something strange about this perl...\n";
652 $heavy_txt .= $fetch_string;
654 $config_txt .= <<'ENDOFEND';
657 my($self, $key) = @_;
659 # check for cached value (which may be undef so we use exists not defined)
660 return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
665 $heavy_txt .= <<'ENDOFEND';
671 substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 );
676 if ($seen_quotes{'"'}) {
677 $heavy_txt .= <<'ENDOFEND';
678 # Find out how the current key's quoted so we can skip to its end.
679 my $quote = substr($Config_SH_expanded,
680 index($Config_SH_expanded, "=", $prevpos)+1, 1);
681 my $pos = index($Config_SH_expanded, qq($quote\n), $prevpos) + 2;
684 # Just ' quotes, so it's much easier.
685 $heavy_txt .= <<'ENDOFEND';
686 my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2;
689 $heavy_txt .= <<'ENDOFEND';
690 my $len = index($Config_SH_expanded, "=", $pos) - $pos;
692 $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef;
696 return 1 if exists($_[0]->{$_[1]});
698 return(index($Config_SH_expanded, "\n$_[1]='") != -1
700 if ($seen_quotes{'"'}) {
701 $heavy_txt .= <<'ENDOFEND';
702 or index($Config_SH_expanded, "\n$_[1]=\"") != -1
705 $heavy_txt .= <<'ENDOFEND';
709 sub STORE { die "\%Config::Config is read-only\n" }
710 *DELETE = *CLEAR = \*STORE; # Typeglob aliasing uses less space
713 substr $Config_SH_expanded, 1, $config_sh_len;
718 return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,
723 # implements -V:cfgvar option (see perlrun -V:)
725 # find optional leading, trailing colons; and query-spec
726 my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft,
727 # map colon-flags to print decorations
728 my $prfx = $notag ? '': "$qry="; # tag-prefix for print
729 my $lnend = $lncont ? ' ' : ";\n"; # line ending for print
731 # all config-vars are by definition \w only, any \W means regex
733 my @matches = config_re($qry);
734 print map "$_$lnend", @matches ? @matches : "$qry: not found" if !$notag;
735 print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found" if $notag;
737 my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry}
739 $v = 'undef' unless defined $v;
740 print "${prfx}'${v}'$lnend";
745 # Called by the real AUTOLOAD
748 goto \&$Config::AUTOLOAD;
755 $config_txt .= <<'ENDOFSET';
758 my ($value, $v) = $Config_SH_expanded =~ m/^used_aout='(.*)'\s*$/m;
759 for (split ' ', $value) {
760 ($v) = $Config_SH_expanded =~ m/^aout_$_='(.*)'\s*$/m;
761 $preconfig{$_} = $v eq 'undef' ? undef : $v;
764 $preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
765 sub TIEHASH { bless {%preconfig} }
767 # Extract the name of the DLL from the makefile to avoid duplication
768 my ($f) = grep -r, qw(GNUMakefile Makefile);
770 if (open my $fh, '<', $f) {
772 $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;
775 $config_txt .= <<ENDOFSET if $dll;
776 \$preconfig{dll_name} = '$dll';
779 $config_txt .= <<'ENDOFSET';
786 foreach my $key (keys %Common) {
787 my $value = fetch_string ({}, $key);
788 # Is it safe on the LHS of => ?
789 my $qkey = $key =~ /^[A-Za-z_][A-Za-z0-9_]*$/ ? $key : "'$key'";
790 if (defined $value) {
791 # Quote things for a '' string
792 $value =~ s!\\!\\\\!g;
795 if ($key eq 'otherlibdirs') {
796 $value = "join (':', map {relocate_inc(\$_)} split (':', $value))";
797 } elsif ($need_relocation{$key}) {
798 $value = "relocate_inc($value)";
803 $Common{$key} = "$qkey => $value";
806 if ($Common{byteorder}) {
807 $Common{byteorder} = 'byteorder => $byteorder';
809 my $fast_config = join '', map { " $_,\n" } sort values %Common;
811 # Sanity check needed to stop an infite loop if Config_heavy.pl fails to define
812 # &launcher for some reason (eg it got truncated)
813 $config_txt .= sprintf <<'ENDOFTIE', $fast_config;
818 require 'Config_heavy.pl';
819 goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
820 die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
823 # tie returns the object, so the value returned to require will be true.
824 tie %%Config, 'Config', {
829 open(CONFIG_POD, ">$Config_POD") or die "Can't open $Config_POD: $!";
830 print CONFIG_POD <<'ENDOFTAIL';
833 Config - access Perl configuration information
838 if ($Config{usethreads}) {
839 print "has thread support\n"
842 use Config qw(myconfig config_sh config_vars config_re);
850 config_vars(qw(osname archname));
855 The Config module contains all the information that was available to
856 the C<Configure> program at Perl build time (over 900 values).
858 Shell variables from the F<config.sh> file (written by Configure) are
859 stored in the readonly-variable C<%Config>, indexed by their names.
861 Values stored in config.sh as 'undef' are returned as undefined
862 values. The perl C<exists> function can be used to check if a
863 named variable exists.
865 For a description of the variables, please have a look at the
866 Glossary file, as written in the Porting folder, or use the url:
867 http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary
873 Returns a textual summary of the major perl configuration values.
874 See also C<-V> in L<perlrun/Switches>.
878 Returns the entire perl configuration information in the form of the
879 original config.sh shell variable assignment script.
881 =item config_re($regex)
883 Like config_sh() but returns, as a list, only the config entries who's
884 names match the $regex.
886 =item config_vars(@names)
888 Prints to STDOUT the values of the named configuration variable. Each is
889 printed on a separate line in the form:
893 Names which are unknown are output as C<name='UNKNOWN';>.
894 See also C<-V:name> in L<perlrun/Switches>.
896 =item bincompat_options()
898 Returns a list of C pre-processor options used when compiling this F<perl>
899 binary, which affect its binary compatibility with extensions.
900 C<bincompat_options()> and C<non_bincompat_options()> are shown together in
901 the output of C<perl -V> as I<Compile-time options>.
903 =item non_bincompat_options()
905 Returns a list of C pre-processor options used when compiling this F<perl>
906 binary, which do not affect binary compatibility with extensions.
910 Returns the compile date (as a string), equivalent to what is shown by
913 =item local_patches()
915 Returns a list of the names of locally applied patches, equivalent to what
916 is shown by C<perl -V>.
920 Returns a list of the header files that should be used as dependencies for
921 XS code, for this version of Perl on this platform.
927 Here's a more sophisticated example of using %Config:
934 unless($Config{sig_name} && $Config{sig_num}) {
937 my @names = split ' ', $Config{sig_name};
938 @sig_num{@names} = split ' ', $Config{sig_num};
940 $sig_name[$sig_num{$_}] ||= $_;
944 print "signal #17 = $sig_name[17]\n";
945 if ($sig_num{ALRM}) {
946 print "SIGALRM is $sig_num{ALRM}\n";
951 Because this information is not stored within the perl executable
952 itself it is possible (but unlikely) that the information does not
953 relate to the actual perl binary which is being used to access it.
955 The Config module is installed into the architecture and version
956 specific library directory ($Config{installarchlib}) and it checks the
957 perl version number when loaded.
959 The values stored in config.sh may be either single-quoted or
960 double-quoted. Double-quoted strings are handy for those cases where you
961 need to include escape sequences in the strings. To avoid runtime variable
962 interpolation, any C<$> and C<@> characters are replaced by C<\$> and
963 C<\@>, respectively. This isn't foolproof, of course, so don't embed C<\$>
964 or C<\@> in double-quoted strings unless you're willing to deal with the
965 consequences. (The slashes will end up escaped and the C<$> or C<@> will
966 trigger variable interpolation)
970 Most C<Config> variables are determined by the C<Configure> script
971 on platforms supported by it (which is most UNIX platforms). Some
972 platforms have custom-made C<Config> variables, and may thus not have
973 some of the variables described below, or may have extraneous variables
974 specific to that particular port. See the port specific documentation
981 if ($Opts{glossary}) {
982 open(GLOS, "<$Glossary") or die "Can't open $Glossary: $!";
989 if (s/\A(\w*)\s+\(([\w.]+)\):\s*\n(\t?)/=item C<$1>\n\nFrom F<$2>:\n\n/m) {
990 my $c = substr $1, 0, 1;
991 unless ($seen{$c}++) {
992 print CONFIG_POD <<EOF if $text;
998 print CONFIG_POD <<EOF;
1009 elsif (!$text || !/\A\t/) {
1010 warn "Expected a Configure variable header",
1011 ($text ? " or another paragraph of description" : () );
1013 s/n't/n\00t/g; # leave can't, won't etc untouched
1014 s/^\t\s+(.*)/\n$1/gm; # Indented lines ===> new paragraph
1015 s/^(?<!\n\n)\t(.*)/$1/gm; # Not indented lines ===> text
1016 s{([\'\"])(?=[^\'\"\s]*[./][^\'\"\s]*\1)([^\'\"\s]+)\1}(F<$2>)g; # '.o'
1017 s{([\'\"])([^\'\"\s]+)\1}(C<$2>)g; # "date" command
1018 s{\'([A-Za-z_\- *=/]+)\'}(C<$1>)g; # 'ln -s'
1020 (?<! [\w./<\'\"] ) # Only standalone file names
1021 (?! e \. g \. ) # Not e.g.
1022 (?! \. \. \. ) # Not ...
1023 (?! \d ) # Not 5.004
1024 (?! read/ ) # Not read/write
1025 (?! etc\. ) # Not etc.
1028 \$ ? # Allow leading $
1029 [\w./]* [./] [\w./]* # Require . or / inside
1031 (?<! \. (?= [\s)] ) ) # Do not include trailing dot
1032 (?! [\w/] ) # Include all of it
1034 (F<$1>)xg; # /usr/local
1035 s/((?<=\s)~\w*)/F<$1>/g; # ~name
1036 s/(?<![.<\'\"])\b([A-Z_]{2,})\b(?![\'\"])/C<$1>/g; # UNISTD
1037 s/(?<![.<\'\"])\b(?!the\b)(\w+)\s+macro\b/C<$1> macro/g; # FILE_cnt macro
1038 s/n[\0]t/n't/g; # undo can't, won't damage
1041 if ($Opts{glossary}) {
1042 <GLOS>; # Skip the "DO NOT EDIT"
1043 <GLOS>; # Skip the preamble
1050 print CONFIG_POD <<'ENDOFTAIL';
1056 Information on the git commit from which the current perl binary was compiled
1057 can be found in the variable C<$Config::Git_Data>. The variable is a
1058 structured string that looks something like this:
1060 git_commit_id='ea0c2dbd5f5ac6845ecc7ec6696415bf8e27bd52'
1061 git_describe='GitLive-blead-1076-gea0c2db'
1062 git_branch='smartmatch'
1063 git_uncommitted_changes=''
1064 git_commit_id_title='Commit id:'
1065 git_commit_date='2009-05-09 17:47:31 +0200'
1067 Its format is not guaranteed not to change over time.
1071 This module contains a good example of how to use tie to implement a
1072 cache and an example of how to make a tied variable readonly to those
1079 close(GLOS) if $Opts{glossary};
1081 print "written $Config_POD\n";
1083 my $orig_config_txt = "";
1084 my $orig_heavy_txt = "";
1088 $orig_config_txt = <$fh> if open $fh, "<", $Config_PM;
1089 $orig_heavy_txt = <$fh> if open $fh, "<", $Config_heavy;
1092 if ($orig_config_txt ne $config_txt or $orig_heavy_txt ne $heavy_txt) {
1093 open CONFIG, ">", $Config_PM or die "Can't open $Config_PM: $!\n";
1094 open CONFIG_HEAVY, ">", $Config_heavy or die "Can't open $Config_heavy: $!\n";
1095 print CONFIG $config_txt;
1096 print CONFIG_HEAVY $heavy_txt;
1097 close(CONFIG_HEAVY);
1099 print "updated $Config_PM\n";
1100 print "updated $Config_heavy\n";
1104 # Now create Cross.pm if needed
1106 open CROSS, ">lib/Cross.pm" or die "Can not open >lib/Cross.pm: $!";
1107 my $cross = <<'EOS';
1108 # typical invocation:
1109 # perl -MCross Makefile.PL
1110 # perl -MCross=wince -V:cc
1114 my ($package,$platform) = @_;
1115 unless (defined $platform) {
1116 # if $platform is not specified, then use last one when
1117 # 'configpm; was invoked with --cross option
1118 $platform = '***replace-marker***';
1120 @INC = map {/\blib\b/?(do{local $_=$_;s/\blib\b/xlib\/$platform/;$_},$_):($_)} @INC;
1121 $::Cross::platform = $platform;
1126 $cross =~ s/\*\*\*replace-marker\*\*\*/$Opts{cross}/g;
1129 print "written lib/Cross.pm\n";
1130 unshift(@INC,"xlib/$Opts{cross}");
1133 # Now do some simple tests on the Config.pm file we have created
1134 unshift(@INC,'lib');
1135 unshift(@INC,'xlib/symbian') if $Opts{cross};
1137 require $Config_heavy;
1140 die "$0: $Config_PM not valid"
1141 unless $Config{'PERL_CONFIG_SH'} eq 'true';
1143 die "$0: error processing $Config_PM"
1144 if defined($Config{'an impossible name'})
1145 or $Config{'PERL_CONFIG_SH'} ne 'true' # test cache
1148 die "$0: error processing $Config_PM"
1149 if eval '$Config{"cc"} = 1'
1150 or eval 'delete $Config{"cc"}'
1155 # Popularity of various entries in %Config, based on a large build and test
1156 # run of code in the Fotango build system:
1174 inc_version_list: 783
1177 usevendorprefix: 642
1198 installsiteman1dir: 489
1199 installsiteman3dir: 489
1200 installvendorman1dir: 489
1201 installvendorman3dir: 489
1205 installsitearch: 344
1210 installprefixexp: 336
1213 installvendorarch: 336
1214 installvendorbin: 336
1215 installvendorlib: 336