[p5sagit/p5-mst-13.2.git] / configpm

#!./miniperl

@ARGV = "./config.sh";

undef $/;
$_ = <>;
s:^#!/bin/sh\n::;
s/'undef'/undef/g;
s/\n(\w+)=/;\n\$Config{'$1'} = /g;
s/;\n\$Config/\n\$Config/;

open STDOUT, ">lib/Config.pm"
    or die "Can't open lib/Config.pm: $!\n";
$myver = sprintf("%.3f", $]);
print <<"ENDOFBEG";
package Config;
require Exporter;
\@ISA = (Exporter);
\@EXPORT = qw(%Config);

\$] == $myver or die sprintf
    "Perl lib version ($myver) doesn't match executable version (%.3f)\\n", \$];

ENDOFBEG

print $_;
Commit	Line	Data
2304df62	1	#!./miniperl
8990e307	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