Change boilerplate of regcharclass.h

p4raw-id: //depot/perl@31031

diff --git a/Porting/regcharclass.pl b/Porting/regcharclass.pl
index 5202fc3..21372da 100644 (file)
--- a/Porting/regcharclass.pl
+++ b/Porting/regcharclass.pl
@@ -435,19 +435,22 @@ rename $path,"$path.bak";
 open my $out_fh,">",$path
     or die "Can't write to '$path':$!";
 binmode $out_fh; # want unix line endings even when run on win32.
-my ($zero)=$0=~/([^\\\/]+)$/;
+my ($zero) = $0=~/([^\\\/]+)$/;
 print $out_fh <<"HEADER";
-/*********************** WARNING WARNING WARNING ************************
-
-Do not modify this code directly: This file was autogenerated by
-
-        Porting/$zero
-
-from data contained within the script.  Change the script instead.
-
-Generated at: @{[ scalar gmtime ]} GMT
-
-************************ WARNING WARNING WARNING ************************/
+/*  -*- buffer-read-only: t -*-
+ *
+ *    regcharclass.h
+ *
+ *    Copyright (C) 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by Porting/$zero.
+ * (Generated at: @{[ scalar gmtime ]} GMT)
+ * Any changes made here will be lost!
+ */
 
 HEADER
 
@@ -481,6 +484,7 @@ while (<DATA>) {
     }
 }
 $doit->();
+print $out_fh "/* ex: set ro: */\n";
 print "$path has been updated\n";
 
 __DATA__

diff --git a/regcharclass.h b/regcharclass.h
index 08b9eae..c9ffcb5 100644 (file)
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -1,19 +1,22 @@
-/*********************** WARNING WARNING WARNING ************************
-
-Do not modify this code directly: This file was autogenerated by 
-
-        Porting/regcharclass.pl 
-        
-from data contained within the script.  Change the script instead.
-
-Generated at: Mon Apr 23 11:33:52 2007 GMT
-
-************************ WARNING WARNING WARNING ************************/
+/*  -*- buffer-read-only: t -*-
+ *
+ *    regcharclass.h
+ *
+ *    Copyright (C) 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by Porting/regcharclass.pl.
+ * (Generated at: Mon Apr 23 12:29:30 2007 GMT)
+ * Any changes made here will be lost!
+ */
 
 /*
        LNBREAK: Line Break: \R
 
-       "\x0D\x0A"      # CRLF - Network (Windows) line ending 
+       "\x0D\x0A"      # CRLF - Network (Windows) line ending
        0x0A            # LF  | LINE FEED
        0x0B            # VT  | VERTICAL TAB
        0x0C            # FF  | FORM FEED
@@ -239,7 +242,7 @@ cp==12288 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
 
        0x0A            # LF
        0x0B            # VT
-       0x0C            # FF  
+       0x0C            # FF
        0x0D            # CR
        0x85            # NEL
        0x2028          # LINE SEPARATOR
@@ -312,3 +315,4 @@ cp==12288 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
 ( cp==8232 || ( cp > 8232 &&                                                \
 cp==8233 ) ) ) ) ) )                                                        
 
+/* ex: set ro: */