16 lines
318 B
Perl
16 lines
318 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
BEGIN {
|
|
# Get function prototypes
|
|
require './regen/regen_lib.pl';
|
|
unshift @INC, 'ext/ExtUtils-Miniperl/lib';
|
|
}
|
|
|
|
use ExtUtils::Miniperl 1;
|
|
|
|
my $fh = open_new('miniperlmain.c', undef, {by => "$0 and ExtUtils::Miniperl"});
|
|
writemain($fh);
|
|
read_only_bottom_close_and_rename($fh);
|