diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-23 12:30:12 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-23 12:30:12 +0000 |
| commit | 58fbde930c2396bd190ab93f5f5a9f12649915c4 (patch) | |
| tree | 708ba05a3e88349ece082022e769caf83609cdbb /Porting | |
| parent | 12b72891435c5403bcc37a2760e6b00923c804ba (diff) | |
| download | perl-58fbde930c2396bd190ab93f5f5a9f12649915c4.tar.gz | |
Change boilerplate of regcharclass.h
p4raw-id: //depot/perl@31031
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/regcharclass.pl | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/Porting/regcharclass.pl b/Porting/regcharclass.pl index 5202fc3f9e..21372dad11 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__ |