This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update to Scalar-List-Utils 1.08
[perl5.git] / configpm
CommitLineData
a0d0e21e 1#!./miniperl -w
8990e307 2
5435c704
NC
3# commonly used names to put first (and hence lookup fastest)
4my %Common = map {($_,$_)}
5 qw(archname osname osvers prefix libs libpth
6 dynamic_ext static_ext dlsrc so
7 cc ccflags cppflags
8 privlibexp archlibexp installprivlib installarchlib
9 sharpbang startsh shsharp
10 );
11
12# names of things which may need to have slashes changed to double-colons
13my %Extensions = map {($_,$_)}
14 qw(dynamic_ext static_ext extensions known_extensions);
15
16# allowed opts as well as specifies default and initial values
17my %Allowed_Opts = (
18 'cross' => '', # --cross=PALTFORM - crosscompiling for PLATFORM
19 'glossary' => 1, # --no-glossary - no glossary file inclusion,
20 # for compactness
18f68570 21);
18f68570 22
5435c704
NC
23sub opts {
24 # user specified options
25 my %given_opts = (
26 # --opt=smth
27 (map {/^--([\-_\w]+)=(.*)$/} @ARGV),
28 # --opt --no-opt --noopt
29 (map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV),
30 );
31
32 my %opts = (%Allowed_Opts, %given_opts);
33
34 for my $opt (grep {!exists $Allowed_Opts{$_}} keys %given_opts) {
35 die "option '$opt' is not recognized";
36 }
37 @ARGV = grep {!/^--/} @ARGV;
38
39 return %opts;
40}
18f68570 41
5435c704
NC
42
43my %Opts = opts();
44
45my $Config_PM;
46my $Glossary = $ARGV[1] || 'Porting/Glossary';
47
48if ($Opts{cross}) {
18f68570
VK
49 # creating cross-platform config file
50 mkdir "xlib";
5435c704
NC
51 mkdir "xlib/$Opts{cross}";
52 $Config_PM = $ARGV[0] || "xlib/$Opts{cross}/Config.pm";
18f68570
VK
53}
54else {
5435c704 55 $Config_PM = $ARGV[0] || 'lib/Config.pm';
18f68570
VK
56}
57
8990e307 58
5435c704 59open CONFIG, ">$Config_PM" or die "Can't open $Config_PM: $!\n";
fec02dd3 60
5435c704 61my $myver = sprintf "v%vd", $^V;
a0d0e21e 62
5435c704
NC
63printf CONFIG <<'ENDOFBEG', ($myver) x 3;
64# This file was created by configpm when Perl was built. Any changes
65# made to this file will be lost the next time perl is built.
3c81428c 66
8990e307 67package Config;
3c81428c 68use Exporter ();
5435c704 69@EXPORT = qw(%%Config);
e3d0cac0
IZ
70@EXPORT_OK = qw(myconfig config_sh config_vars);
71
72# Define our own import method to avoid pulling in the full Exporter:
73sub import {
74 my $pkg = shift;
75 @_ = @EXPORT unless @_;
5435c704
NC
76
77 my @func = grep {$_ ne '%%Config'} @_;
4365a961 78 local $Exporter::ExportLevel = 1;
e3d0cac0 79 Exporter::import('Config', @func) if @func;
5435c704 80
e3d0cac0 81 return if @func == @_;
5435c704 82
e3d0cac0 83 my $callpkg = caller(0);
5435c704 84 *{"$callpkg\::Config"} = \%%Config;
e3d0cac0
IZ
85}
86
5435c704
NC
87die "Perl lib version (%s) doesn't match executable version ($])"
88 unless $^V;
de98c553 89
5435c704
NC
90$^V eq %s
91 or die "Perl lib version (%s) doesn't match executable version (" .
92 (sprintf "v%vd",$^V) . ")";
a0d0e21e 93
8990e307
LW
94ENDOFBEG
95
16d20bd9 96
5435c704
NC
97my @non_v = ();
98my @v_fast = ();
99my %v_fast = ();
100my @v_others = ();
101my $in_v = 0;
102my %Data = ();
103
104# This is somewhat grim, but I want the code for parsing config.sh here and
105# now so that I can expand $Config{ivsize} and $Config{ivtype}
106
107my $fetch_string = <<'EOT';
108
109# Search for it in the big string
110sub fetch_string {
111 my($self, $key) = @_;
112
113 my $quote_type = "'";
114 my $marker = "$key=";
115
116 # Check for the common case, ' delimeted
117 my $start = index($Config_SH, "\n$marker$quote_type");
118 # If that failed, check for " delimited
119 if ($start == -1) {
120 $quote_type = '"';
121 $start = index($Config_SH, "\n$marker$quote_type");
122 }
123 return undef if ( ($start == -1) && # in case it's first
124 (substr($Config_SH, 0, length($marker)) ne $marker) );
125 if ($start == -1) {
126 # It's the very first thing we found. Skip $start forward
127 # and figure out the quote mark after the =.
128 $start = length($marker) + 1;
129 $quote_type = substr($Config_SH, $start - 1, 1);
130 }
131 else {
132 $start += length($marker) + 2;
133 }
134
135 my $value = substr($Config_SH, $start,
136 index($Config_SH, "$quote_type\n", $start) - $start);
137
138 # If we had a double-quote, we'd better eval it so escape
139 # sequences and such can be interpolated. Since the incoming
140 # value is supposed to follow shell rules and not perl rules,
141 # we escape any perl variable markers
142 if ($quote_type eq '"') {
143 $value =~ s/\$/\\\$/g;
144 $value =~ s/\@/\\\@/g;
145 eval "\$value = \"$value\"";
146 }
147
148 # So we can say "if $Config{'foo'}".
149 $value = undef if $value eq 'undef';
150 $self->{$key} = $value; # cache it
151}
152EOT
153
154eval $fetch_string;
155die if $@;
a0d0e21e 156
5435c704
NC
157open(CONFIG_SH, 'config.sh') || die "Can't open config.sh: $!";
158while (<CONFIG_SH>) {
a0d0e21e 159 next if m:^#!/bin/sh:;
5435c704 160
a02608de 161 # Catch PERL_CONFIG_SH=true and PERL_VERSION=n line from Configure.
d4de4258 162 s/^(\w+)=(true|\d+)\s*$/$1='$2'\n/ or m/^(\w+)='(.*)'$/;
3905a40f 163 my($k, $v) = ($1, $2);
5435c704 164
2000072c 165 # grandfather PATCHLEVEL and SUBVERSION and CONFIG
cceca5ed
GS
166 if ($k) {
167 if ($k eq 'PERL_VERSION') {
168 push @v_others, "PATCHLEVEL='$v'\n";
169 }
170 elsif ($k eq 'PERL_SUBVERSION') {
171 push @v_others, "SUBVERSION='$v'\n";
172 }
a02608de 173 elsif ($k eq 'PERL_CONFIG_SH') {
2000072c
JH
174 push @v_others, "CONFIG='$v'\n";
175 }
cceca5ed 176 }
5435c704 177
435ec615
HM
178 # We can delimit things in config.sh with either ' or ".
179 unless ($in_v or m/^(\w+)=(['"])(.*\n)/){
a0d0e21e
LW
180 push(@non_v, "#$_"); # not a name='value' line
181 next;
182 }
435ec615 183 $quote = $2;
5435c704
NC
184 if ($in_v) {
185 $val .= $_;
186 }
187 else {
188 ($name,$val) = ($1,$3);
189 }
435ec615 190 $in_v = $val !~ /$quote\n/;
44a8e56a 191 next if $in_v;
a0d0e21e 192
5435c704 193 s,/,::,g if $Extensions{$name};
a0d0e21e 194
5435c704 195 $val =~ s/$quote\n?\z//;
3c81428c 196
5435c704
NC
197 my $line = "$name=$quote$val$quote\n";
198 if (!$Common{$name}){
199 push(@v_others, $line);
200 }
201 else {
202 push(@v_fast, $line);
203 $v_fast{$name} = "'$name' => $quote$val$quote";
204 }
205}
206close CONFIG_SH;
3c81428c 207
5435c704 208print CONFIG @non_v, "\n";
3c81428c 209
5435c704
NC
210# copy config summary format from the myconfig.SH script
211print CONFIG "my \$summary = <<'!END!';\n";
3b5ca523 212open(MYCONFIG,"<myconfig.SH") || die "open myconfig.SH failed: $!";
54310121
PP
2131 while defined($_ = <MYCONFIG>) && !/^Summary of/;
214do { print CONFIG $_ } until !defined($_ = <MYCONFIG>) || /^\s*$/;
3c81428c 215close(MYCONFIG);
a0d0e21e 216
3c81428c
PP
217print CONFIG "\n!END!\n", <<'EOT';
218my $summary_expanded = 0;
219
220sub myconfig {
221 return $summary if $summary_expanded;
ca8cad5c
TB
222 $summary =~ s{\$(\w+)}
223 { my $c = $Config{$1}; defined($c) ? $c : 'undef' }ge;
3c81428c
PP
224 $summary_expanded = 1;
225 $summary;
226}
5435c704 227
3161c2f8 228our $Config_SH : unique = <<'!END!';
3c81428c
PP
229EOT
230
5435c704
NC
231print CONFIG join("", @v_fast, sort @v_others);
232
233print CONFIG "!END!\n", $fetch_string;
a0d0e21e
LW
234
235print CONFIG <<'ENDOFEND';
236
5435c704
NC
237sub fetch_virtual {
238 my($self, $key) = @_;
239
240 my $value;
241
242 if ($key =~ /^((?:cc|ld)flags|libs(?:wanted)?)_nolargefiles/) {
4b2ec495
JH
243 # These are purely virtual, they do not exist, but need to
244 # be computed on demand for largefile-incapable extensions.
5435c704 245 my $new_key = "${1}_uselargefiles";
4b2ec495 246 $value = $Config{$1};
5435c704
NC
247 my $withlargefiles = $Config{$new_key};
248 if ($new_key =~ /^(?:cc|ld)flags_/) {
4b2ec495 249 $value =~ s/\Q$withlargefiles\E\b//;
5435c704 250 } elsif ($new_key =~ /^libs/) {
45c9e83b 251 my @lflibswanted = split(' ', $Config{libswanted_uselargefiles});
4b2ec495
JH
252 if (@lflibswanted) {
253 my %lflibswanted;
254 @lflibswanted{@lflibswanted} = ();
5435c704 255 if ($new_key =~ /^libs_/) {
4b2ec495
JH
256 my @libs = grep { /^-l(.+)/ &&
257 not exists $lflibswanted{$1} }
258 split(' ', $Config{libs});
259 $Config{libs} = join(' ', @libs);
5435c704 260 } elsif ($new_key =~ /^libswanted_/) {
4b2ec495
JH
261 my @libswanted = grep { not exists $lflibswanted{$_} }
262 split(' ', $Config{libswanted});
263 $Config{libswanted} = join(' ', @libswanted);
264 }
265 }
266 }
435ec615 267 }
5435c704
NC
268
269 $self->{$key} = $value;
270}
271
272sub FETCH {
273 my($self, $key) = @_;
274
275 # check for cached value (which may be undef so we use exists not defined)
276 return $self->{$key} if exists $self->{$key};
277
278 $self->fetch_string($key);
279 return $self->{$key} if exists $self->{$key};
280 $self->fetch_virtual($key);
281
282 # Might not exist, in which undef is correct.
283 return $self->{$key};
a0d0e21e
LW
284}
285
3c81428c
PP
286my $prevpos = 0;
287
a0d0e21e
LW
288sub FIRSTKEY {
289 $prevpos = 0;
5435c704 290 substr($Config_SH, 0, index($Config_SH, '=') );
a0d0e21e
LW
291}
292
293sub NEXTKEY {
435ec615 294 # Find out how the current key's quoted so we can skip to its end.
5435c704
NC
295 my $quote = substr($Config_SH, index($Config_SH, "=", $prevpos)+1, 1);
296 my $pos = index($Config_SH, qq($quote\n), $prevpos) + 2;
297 my $len = index($Config_SH, "=", $pos) - $pos;
a0d0e21e 298 $prevpos = $pos;
5435c704 299 $len > 0 ? substr($Config_SH, $pos, $len) : undef;
85e6fe83 300}
a0d0e21e 301
3c81428c 302sub EXISTS {
5435c704
NC
303 return 1 if exists($_[0]->{$_[1]});
304
305 return(index($Config_SH, "\n$_[1]='") != -1 or
306 substr($Config_SH, 0, length($_[1])+2) eq "$_[1]='" or
307 index($Config_SH, "\n$_[1]=\"") != -1 or
308 substr($Config_SH, 0, length($_[1])+2) eq "$_[1]=\"" or
309 $_[1] =~ /^(?:(?:cc|ld)flags|libs(?:wanted)?)_nolargefiles$/
310 );
a0d0e21e
LW
311}
312
3c81428c 313sub STORE { die "\%Config::Config is read-only\n" }
5435c704
NC
314*DELETE = \&STORE;
315*CLEAR = \&STORE;
a0d0e21e 316
3c81428c
PP
317
318sub config_sh {
5435c704 319 $Config_SH
748a9306 320}
9193ea20
PP
321
322sub config_re {
323 my $re = shift;
5435c704 324 my @matches = grep /^$re=/, split /^/, $Config_SH;
9193ea20
PP
325 @matches ? (print @matches) : print "$re: not found\n";
326}
327
3c81428c
PP
328sub config_vars {
329 foreach(@_){
9193ea20 330 config_re($_), next if /\W/;
3c81428c
PP
331 my $v=(exists $Config{$_}) ? $Config{$_} : 'UNKNOWN';
332 $v='undef' unless defined $v;
333 print "$_='$v';\n";
334 }
335}
336
9193ea20
PP
337ENDOFEND
338
339if ($^O eq 'os2') {
340 print CONFIG <<'ENDOFSET';
341my %preconfig;
342if ($OS2::is_aout) {
5435c704 343 my ($value, $v) = $Config_SH =~ m/^used_aout='(.*)'\s*$/m;
9193ea20 344 for (split ' ', $value) {
5435c704 345 ($v) = $Config_SH =~ m/^aout_$_='(.*)'\s*$/m;
9193ea20
PP
346 $preconfig{$_} = $v eq 'undef' ? undef : $v;
347 }
348}
764df951 349$preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
9193ea20
PP
350sub TIEHASH { bless {%preconfig} }
351ENDOFSET
30500b05
IZ
352 # Extract the name of the DLL from the makefile to avoid duplication
353 my ($f) = grep -r, qw(GNUMakefile Makefile);
354 my $dll;
355 if (open my $fh, '<', $f) {
356 while (<$fh>) {
357 $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;
358 }
359 }
360 print CONFIG <<ENDOFSET if $dll;
361\$preconfig{dll_name} = '$dll';
362ENDOFSET
9193ea20
PP
363} else {
364 print CONFIG <<'ENDOFSET';
5435c704
NC
365sub TIEHASH {
366 bless $_[1], $_[0];
367}
9193ea20
PP
368ENDOFSET
369}
370
5435c704
NC
371
372# Calculation for the keys for byteorder
373# This is somewhat grim, but I need to run fetch_string here.
374our $Config_SH = join "\n", @v_fast, @v_others;
375
376my $t = fetch_string ({}, 'ivtype');
377my $s = fetch_string ({}, 'ivsize');
378
379# byteorder does exist on its own but we overlay a virtual
380# dynamically recomputed value.
381
382# However, ivtype and ivsize will not vary for sane fat binaries
383
384my $f = $t eq 'long' ? 'L!' : $s == 8 ? 'Q': 'I';
385
386my $byteorder_code;
387if ($s == 4 || $s == 8) {
388
389 my $list = join ',', reverse(2..$s);
390 my $format = 'a'x$s;
391 $byteorder_code = <<"EOT";
392my \$i = 0;
393foreach my \$c ($list) { \$i |= ord(\$c); \$i <<= 8 }
394\$i |= ord(1);
395my \$value = join('', unpack('$format', pack('$f', \$i)));
396EOT
397} else {
398 $byteorder_code = "\$value = '?'x$s;\n";
399}
400
401my $fast_config = join '', map { " $_,\n" }
402 values (%v_fast), 'byteorder => $value' ;
403
404print CONFIG sprintf <<'ENDOFTIE', $byteorder_code, $fast_config;
9193ea20 405
fb73857a
PP
406# avoid Config..Exporter..UNIVERSAL search for DESTROY then AUTOLOAD
407sub DESTROY { }
408
5435c704
NC
409%s
410
411tie %%Config, 'Config', {
412%s
413};
9193ea20 414
3c81428c 4151;
5435c704
NC
416ENDOFTIE
417
748a9306 418
5435c704
NC
419open(CONFIG_POD, ">lib/Config.pod") or die "Can't open lib/Config.pod: $!";
420print CONFIG_POD <<'ENDOFTAIL';
3c81428c 421=head1 NAME
a0d0e21e 422
3c81428c
PP
423Config - access Perl configuration information
424
425=head1 SYNOPSIS
426
427 use Config;
428 if ($Config{'cc'} =~ /gcc/) {
429 print "built by gcc\n";
430 }
431
432 use Config qw(myconfig config_sh config_vars);
433
434 print myconfig();
435
436 print config_sh();
437
438 config_vars(qw(osname archname));
439
440
441=head1 DESCRIPTION
442
443The Config module contains all the information that was available to
444the C<Configure> program at Perl build time (over 900 values).
445
446Shell variables from the F<config.sh> file (written by Configure) are
447stored in the readonly-variable C<%Config>, indexed by their names.
448
449Values stored in config.sh as 'undef' are returned as undefined
1fef88e7 450values. The perl C<exists> function can be used to check if a
3c81428c
PP
451named variable exists.
452
453=over 4
454
455=item myconfig()
456
457Returns a textual summary of the major perl configuration values.
458See also C<-V> in L<perlrun/Switches>.
459
460=item config_sh()
461
462Returns the entire perl configuration information in the form of the
463original config.sh shell variable assignment script.
464
465=item config_vars(@names)
466
467Prints to STDOUT the values of the named configuration variable. Each is
468printed on a separate line in the form:
469
470 name='value';
471
472Names which are unknown are output as C<name='UNKNOWN';>.
473See also C<-V:name> in L<perlrun/Switches>.
474
475=back
476
477=head1 EXAMPLE
478
479Here's a more sophisticated example of using %Config:
480
481 use Config;
743c51bc
WK
482 use strict;
483
484 my %sig_num;
485 my @sig_name;
486 unless($Config{sig_name} && $Config{sig_num}) {
487 die "No sigs?";
488 } else {
489 my @names = split ' ', $Config{sig_name};
490 @sig_num{@names} = split ' ', $Config{sig_num};
491 foreach (@names) {
492 $sig_name[$sig_num{$_}] ||= $_;
493 }
494 }
3c81428c 495
743c51bc
WK
496 print "signal #17 = $sig_name[17]\n";
497 if ($sig_num{ALRM}) {
498 print "SIGALRM is $sig_num{ALRM}\n";
3c81428c
PP
499 }
500
501=head1 WARNING
502
503Because this information is not stored within the perl executable
504itself it is possible (but unlikely) that the information does not
505relate to the actual perl binary which is being used to access it.
506
507The Config module is installed into the architecture and version
508specific library directory ($Config{installarchlib}) and it checks the
509perl version number when loaded.
510
435ec615
HM
511The values stored in config.sh may be either single-quoted or
512double-quoted. Double-quoted strings are handy for those cases where you
513need to include escape sequences in the strings. To avoid runtime variable
514interpolation, any C<$> and C<@> characters are replaced by C<\$> and
515C<\@>, respectively. This isn't foolproof, of course, so don't embed C<\$>
516or C<\@> in double-quoted strings unless you're willing to deal with the
517consequences. (The slashes will end up escaped and the C<$> or C<@> will
518trigger variable interpolation)
519
ebc74a4b
GS
520=head1 GLOSSARY
521
522Most C<Config> variables are determined by the C<Configure> script
523on platforms supported by it (which is most UNIX platforms). Some
524platforms have custom-made C<Config> variables, and may thus not have
525some of the variables described below, or may have extraneous variables
526specific to that particular port. See the port specific documentation
527in such cases.
528
ebc74a4b
GS
529ENDOFTAIL
530
5435c704
NC
531if ($Opts{glossary}) {
532 open(GLOS, "<$Glossary") or die "Can't open $Glossary: $!";
18f68570 533}
fb87c415
IZ
534%seen = ();
535$text = 0;
536$/ = '';
537
538sub process {
aade5aff
YST
539 if (s/\A(\w*)\s+\(([\w.]+)\):\s*\n(\t?)/=item C<$1>\n\nFrom F<$2>:\n\n/m) {
540 my $c = substr $1, 0, 1;
541 unless ($seen{$c}++) {
5435c704 542 print CONFIG_POD <<EOF if $text;
fb87c415 543=back
ebc74a4b 544
fb87c415 545EOF
5435c704 546 print CONFIG_POD <<EOF;
fb87c415
IZ
547=head2 $c
548
bbc7dcd2 549=over 4
fb87c415
IZ
550
551EOF
aade5aff
YST
552 $text = 1;
553 }
554 }
555 elsif (!$text || !/\A\t/) {
556 warn "Expected a Configure variable header",
557 ($text ? " or another paragraph of description" : () );
fb87c415
IZ
558 }
559 s/n't/n\00t/g; # leave can't, won't etc untouched
9b22980b 560 s/^\t\s+(.*)/\n$1/gm; # Indented lines ===> new paragraph
fb87c415
IZ
561 s/^(?<!\n\n)\t(.*)/$1/gm; # Not indented lines ===> text
562 s{([\'\"])(?=[^\'\"\s]*[./][^\'\"\s]*\1)([^\'\"\s]+)\1}(F<$2>)g; # '.o'
563 s{([\'\"])([^\'\"\s]+)\1}(C<$2>)g; # "date" command
564 s{\'([A-Za-z_\- *=/]+)\'}(C<$1>)g; # 'ln -s'
565 s{
566 (?<! [\w./<\'\"] ) # Only standalone file names
567 (?! e \. g \. ) # Not e.g.
568 (?! \. \. \. ) # Not ...
569 (?! \d ) # Not 5.004
a1151a3c
RGS
570 (?! read/ ) # Not read/write
571 (?! etc\. ) # Not etc.
572 (?! I/O ) # Not I/O
573 (
574 \$ ? # Allow leading $
575 [\w./]* [./] [\w./]* # Require . or / inside
576 )
577 (?<! \. (?= [\s)] ) ) # Do not include trailing dot
fb87c415
IZ
578 (?! [\w/] ) # Include all of it
579 }
580 (F<$1>)xg; # /usr/local
581 s/((?<=\s)~\w*)/F<$1>/g; # ~name
582 s/(?<![.<\'\"])\b([A-Z_]{2,})\b(?![\'\"])/C<$1>/g; # UNISTD
583 s/(?<![.<\'\"])\b(?!the\b)(\w+)\s+macro\b/C<$1> macro/g; # FILE_cnt macro
584 s/n[\0]t/n't/g; # undo can't, won't damage
ebc74a4b
GS
585}
586
5435c704 587if ($Opts{glossary}) {
7701ffb5
JH
588 <GLOS>; # Skip the "DO NOT EDIT"
589 <GLOS>; # Skip the preamble
18f68570
VK
590 while (<GLOS>) {
591 process;
5435c704 592 print CONFIG_POD;
18f68570 593 }
fb87c415 594}
ebc74a4b 595
5435c704 596print CONFIG_POD <<'ENDOFTAIL';
ebc74a4b
GS
597
598=back
599
3c81428c
PP
600=head1 NOTE
601
602This module contains a good example of how to use tie to implement a
603cache and an example of how to make a tied variable readonly to those
604outside of it.
605
606=cut
a0d0e21e 607
9193ea20 608ENDOFTAIL
a0d0e21e
LW
609
610close(CONFIG);
ebc74a4b 611close(GLOS);
5435c704 612close(CONFIG_POD);
a0d0e21e 613
18f68570 614# Now create Cross.pm if needed
5435c704 615if ($Opts{cross}) {
18f68570 616 open CROSS, ">lib/Cross.pm" or die "Can not open >lib/Cross.pm: $!";
47bcb90d
VK
617 my $cross = <<'EOS';
618# typical invocation:
619# perl -MCross Makefile.PL
620# perl -MCross=wince -V:cc
621package Cross;
622
623sub import {
624 my ($package,$platform) = @_;
625 unless (defined $platform) {
626 # if $platform is not specified, then use last one when
627 # 'configpm; was invoked with --cross option
628 $platform = '***replace-marker***';
629 }
630 @INC = map {/\blib\b/?(do{local $_=$_;s/\blib\b/xlib\/$platform/;$_},$_):($_)} @INC;
e2a02c1e 631 $::Cross::platform = $platform;
18f68570 632}
47bcb90d 633
18f68570
VK
6341;
635EOS
5435c704 636 $cross =~ s/\*\*\*replace-marker\*\*\*/$Opts{cross}/g;
47bcb90d 637 print CROSS $cross;
18f68570
VK
638 close CROSS;
639}
640
a0d0e21e
LW
641# Now do some simple tests on the Config.pm file we have created
642unshift(@INC,'lib');
5435c704 643require $Config_PM;
a0d0e21e
LW
644import Config;
645
5435c704 646die "$0: $Config_PM not valid"
a02608de 647 unless $Config{'PERL_CONFIG_SH'} eq 'true';
a0d0e21e 648
5435c704 649die "$0: error processing $Config_PM"
a0d0e21e 650 if defined($Config{'an impossible name'})
a02608de 651 or $Config{'PERL_CONFIG_SH'} ne 'true' # test cache
a0d0e21e
LW
652 ;
653
5435c704 654die "$0: error processing $Config_PM"
a0d0e21e
LW
655 if eval '$Config{"cc"} = 1'
656 or eval 'delete $Config{"cc"}'
657 ;
658
659
85e6fe83 660exit 0;