summaryrefslogtreecommitdiff
path: root/regen/keywords.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-01-23 10:38:58 +0000
committerNicholas Clark <nick@ccl4.org>2011-01-23 10:41:25 +0000
commitce716c52d393ac84495b7b8f262c39ecc5447cc9 (patch)
tree8053d9bd192b318367aa7c50b3910bc88b706422 /regen/keywords.pl
parentf038801aea0ff24cf86511fa6679d7dcb859cd8d (diff)
downloadperl-ce716c52d393ac84495b7b8f262c39ecc5447cc9.tar.gz
Change close_and_rename() to read_only_bottom_close_and_rename()
All users of close_and_rename() were printing out the appropriate "ex: set ro:" string to the file handle immediately before closing it. So move that into the common function and rename it to reflect what it now does. [Except overload.pl, which should have been, given that it calls read_only_top()] Print a newline above the "ex: set ro:" line. This removes many newlines from the regen scripts, but does add newlines to a couple of generated files.
Diffstat (limited to 'regen/keywords.pl')
-rwxr-xr-xregen/keywords.pl4
1 files changed, 1 insertions, 3 deletions
diff --git a/regen/keywords.pl b/regen/keywords.pl
index 185d433f17..452bfc9be0 100755
--- a/regen/keywords.pl
+++ b/regen/keywords.pl
@@ -32,9 +32,7 @@ while (<DATA>) {
print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
}
-print $kw "\n/* ex: set ro: */\n";
-
-close_and_rename($kw);
+read_only_bottom_close_and_rename($kw);
###########################################################################
sub tab {