diff options
Diffstat (limited to 'regen/warnings.pl')
| -rw-r--r-- | regen/warnings.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index 6eee635fc4..2b0ddcce73 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -366,10 +366,9 @@ print $warn <<'EOM'; isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x)))) /* end of file warnings.h */ -/* ex: set ro: */ EOM -close_and_rename($warn); +read_only_bottom_close_and_rename($warn); while (<DATA>) { last if /^KEYWORDS$/ ; @@ -425,8 +424,7 @@ while (<DATA>) { print $pm $_ ; } -print $pm "# ex: set ro:\n"; -close_and_rename($pm); +read_only_bottom_close_and_rename($pm); __END__ package warnings; |