Commit | Line | Data |
8990e307 |
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 | |