This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
embed.fnc: Mark freetmps as Core only
[perl5.git]
/
regen
/
miniperlmain.pl
diff --git
a/regen/miniperlmain.pl
b/regen/miniperlmain.pl
index
205c583
..
37a3fff
100644
(file)
--- a/
regen/miniperlmain.pl
+++ b/
regen/miniperlmain.pl
@@
-4,12
+4,12
@@
use strict;
BEGIN {
# Get function prototypes
BEGIN {
# Get function prototypes
- require 'regen/regen_lib.pl';
+ require '
./
regen/regen_lib.pl';
unshift @INC, 'ext/ExtUtils-Miniperl/lib';
}
unshift @INC, 'ext/ExtUtils-Miniperl/lib';
}
-use ExtUtils::Miniperl;
+use ExtUtils::Miniperl
1
;
-my $fh = open_new('miniperlmain.c');
+my $fh = open_new('miniperlmain.c'
, undef, {by => "$0 and ExtUtils::Miniperl"}
);
writemain($fh);
writemain($fh);
-close_and_rename($fh);
+
read_only_bottom_
close_and_rename($fh);