Move the "editor block" from miniperlmain.c to ExtUtils::Miniperl

As miniperlmain.c is now generated by ExtUtils::Miniperl (and not the other
way round), there's no reason to have an editor block in the generated file,
as it's not intended to be edited. Instead, add the "generated from" and
read-only headers to miniperlmain.c

3 files changed, 17 insertions, 21 deletions

diff --git a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
index b14b216697..a2870fe25a 100644
--- a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
+++ b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
@@ -222,16 +222,6 @@ EOT
 
     print $fh <<'EOT';
 }
-
-/*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
- * ex: set ts=8 sts=4 sw=4 et:
- */
 EOT
 }
 
@@ -280,3 +270,11 @@ deal with this module directly.
 L<ExtUtils::MakeMaker>
 
 =cut
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+#
+# ex: set ts=8 sts=4 sw=4 et:
diff --git a/miniperlmain.c b/miniperlmain.c
index 2fd590c895..7b96e482fa 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -1,3 +1,9 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen/miniperlmain.pl and ExtUtils::Miniperl.
+   Any changes made here will be lost!
+ */
+
 /*    miniperlmain.c
  *
  *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
@@ -159,12 +165,4 @@ xs_init(pTHX)
     PERL_UNUSED_CONTEXT;
 }
 
-/*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
- * ex: set ts=8 sts=4 sw=4 et:
- */
+/* ex: set ro: */
diff --git a/regen/miniperlmain.pl b/regen/miniperlmain.pl
index 205c5839ec..1558fb99f5 100644
--- a/regen/miniperlmain.pl
+++ b/regen/miniperlmain.pl
@@ -10,6 +10,6 @@ BEGIN {
 
 use ExtUtils::Miniperl;
 
-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);