perlop: fix documentation for s/// "false" return value
[perl.git] / 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);