From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 23 Apr 2007 12:30:12 +0000 (+0000)
Subject: Change boilerplate of regcharclass.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58fbde930c2396bd190ab93f5f5a9f12649915c4;p=p5sagit%2Fp5-mst-13.2.git

Change boilerplate of regcharclass.h

p4raw-id: //depot/perl@31031
---

diff --git a/Porting/regcharclass.pl b/Porting/regcharclass.pl
index 5202fc3..21372da 100644
--- 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
--- 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: */