Output "read only" editor blocks from regen_perly.pl

Use safer_open() and read_only_bottom_close_and_rename() from regen_lib.pl
Consistently use 3 argument open and lexical file handles.

A side effect of this change is that the generated files are no longer made
read-only on disk - if this is desirable, then probably better to change
regen_lib.pl so that all generated files are made read-only.

1 files changed, 8 insertions, 0 deletions

diff --git a/perly.act b/perly.act
index fc3095884e..ae8e330ff4 100644
--- a/perly.act
+++ b/perly.act
@@ -1,3 +1,9 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen_perly.pl from perly.y.
+   Any changes made here will be lost!
+ */
+
 case 2:
 #line 142 "perly.y"
     {
@@ -1702,3 +1708,5 @@ case 2:
 
       default: break;
     
+
+/* ex: set ro: */