regen/ebcdic.pl: Output tables in hex

[perl5.git] / regen / miniperlmain.pl

diff --git a/regen/miniperlmain.pl b/regen/miniperlmain.pl
index 205c583..9123b3f 100644 (file)
--- a/regen/miniperlmain.pl
+++ b/regen/miniperlmain.pl
@@ -8,8 +8,8 @@ BEGIN {
     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);
-close_and_rename($fh);
+read_only_bottom_close_and_rename($fh);