Move the "editor block" from miniperlmain.c to ExtUtils::Miniperl
authorNicholas Clark <nick@ccl4.org>
Sat, 6 Jul 2013 14:21:40 +0000 (16:21 +0200)
committerNicholas Clark <nick@ccl4.org>
Sun, 7 Jul 2013 10:52:36 +0000 (12:52 +0200)
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

ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
miniperlmain.c
regen/miniperlmain.pl

index b14b216..a2870fe 100644 (file)
@@ -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:
index 2fd590c..7b96e48 100644 (file)
@@ -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: */
index 205c583..1558fb9 100644 (file)
@@ -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);