regen/miniperlmain.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 BEGIN {
   6     # Get function prototypes
   7     require './regen/regen_lib.pl';
   8     unshift @INC, 'ext/ExtUtils-Miniperl/lib';
   9 }
  10
  11 use ExtUtils::Miniperl 1;
  12
  13 my $fh = open_new('miniperlmain.c', undef, {by => "$0 and ExtUtils::Miniperl"});
  14 writemain($fh);
  15 read_only_bottom_close_and_rename($fh);