X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c8935f6cd34349a50bf080be1bb4c46f2a00adfb..f34c6d9a1621ff7aef72b4930fcc524f281ffd70:/regen/miniperlmain.pl

diff --git a/regen/miniperlmain.pl b/regen/miniperlmain.pl
index 205c583..37a3fff 100644
--- a/regen/miniperlmain.pl
+++ b/regen/miniperlmain.pl
@@ -4,12 +4,12 @@ use strict;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
     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);