perl 5.0 alpha 6
[perl.git] / configpm
1 #!./perl
2
3 @ARGV = "./config.sh";
4
5 undef $/;
6 $_ = <>;
7 s:^#!/bin/sh\n::;
8 s/'undef'/undef/g;
9 s/\n(\w+)=/;\n\$Config{'$1'} = /g;
10 s/;\n\$Config/\n\$Config/;
11
12 open STDOUT, ">lib/Config.pm"
13     or die "Can't open lib/Config.pm: $!\n";
14 $myver = sprintf("%.3f", $]);
15 print <<"ENDOFBEG";
16 package Config;
17 require Exporter;
18 \@ISA = (Exporter);
19 \@EXPORT = qw(%Config);
20
21 \$] == $myver or die sprintf
22     "Perl lib version ($myver) doesn't match executable version (%.3f)\\n", \$];
23
24 ENDOFBEG
25
26 print $_;
27