configpm

   1 #!./miniperl
   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