[perl5.git] / regen / miniperlmain.pl

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