diff options
Diffstat (limited to 'regen/warnings.pl')
| -rw-r--r-- | regen/warnings.pl | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index 0129603d30..63ed6bce68 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -265,13 +265,8 @@ if (@ARGV && $ARGV[0] eq "tree") my $warn = safer_open("warnings.h-new"); my $pm = safer_open("lib/warnings.pm-new"); -print $warn <<'EOM' ; -/* -*- buffer-read-only: t -*- - !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - This file is built by regen/warnings.pl - Any changes made here will be lost! -*/ - +print $pm read_only_top(lang => 'Perl', by => 'regen/warnings.pl'); +print $warn read_only_top(lang => 'C', by => 'regen/warnings.pl'), <<'EOM'; #define Off(x) ((x) / 8) #define Bit(x) (1 << ((x) % 8)) @@ -436,15 +431,9 @@ safer_close $pm; rename_if_different("lib/warnings.pm-new", "lib/warnings.pm"); __END__ -# -*- buffer-read-only: t -*- -# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! -# This file was created by regen/warnings.pl -# Any changes made here will be lost. -# - package warnings; -our $VERSION = '1.11'; +our $VERSION = '1.12'; # Verify that we're called correctly so that warnings will work. # see also strict.pm. |