view perl-5.22.2/regen/miniperlmain.pl @ 8045:a16537d2fe07

<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author HackBot
date Sat, 14 May 2016 14:54:38 +0000
parents
children
line wrap: on
line source

#!/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);