Change 31031 by [EMAIL PROTECTED] on 2007/04/23 12:30:12
Change boilerplate of regcharclass.h
Affected files ...
... //depot/perl/Porting/regcharclass.pl#2 edit
... //depot/perl/regcharclass.h#3 edit
Differences ...
==== //depot/perl/Porting/regcharclass.pl#2 (text) ====
Index: perl/Porting/regcharclass.pl
--- perl/Porting/regcharclass.pl#1~31030~ 2007-04-23 05:25:10.000000000
-0700
+++ perl/Porting/regcharclass.pl 2007-04-23 05:30:12.000000000 -0700
@@ -435,19 +435,22 @@
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 @@
}
}
$doit->();
+print $out_fh "/* ex: set ro: */\n";
print "$path has been updated\n";
__DATA__
==== //depot/perl/regcharclass.h#3 (text) ====
Index: perl/regcharclass.h
--- perl/regcharclass.h#2~31030~ 2007-04-23 05:25:10.000000000 -0700
+++ perl/regcharclass.h 2007-04-23 05:30:12.000000000 -0700
@@ -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 @@
0x0A # LF
0x0B # VT
- 0x0C # FF
+ 0x0C # FF
0x0D # CR
0x85 # NEL
0x2028 # LINE SEPARATOR
@@ -312,3 +315,4 @@
( cp==8232 || ( cp > 8232 && \
cp==8233 ) ) ) ) ) )
+/* ex: set ro: */
End of Patch.
