summaryrefslogtreecommitdiff
path: root/regen/miniperlmain.pl
blob: 9123b3f71b227ac52d742ba207fa1f34f88f5cf5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/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);