APItest/t/handy.t: Fold in another special case

[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
-    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);