diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-23 10:38:58 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-23 10:41:25 +0000 |
| commit | ce716c52d393ac84495b7b8f262c39ecc5447cc9 (patch) | |
| tree | 8053d9bd192b318367aa7c50b3910bc88b706422 /lib | |
| parent | f038801aea0ff24cf86511fa6679d7dcb859cd8d (diff) | |
| download | perl-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 'lib')
| -rw-r--r-- | lib/overload/numbers.pm | 1 | ||||
| -rw-r--r-- | lib/warnings.pm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lib/overload/numbers.pm b/lib/overload/numbers.pm index 6856b0aa52..f56fa630cc 100644 --- a/lib/overload/numbers.pm +++ b/lib/overload/numbers.pm @@ -161,3 +161,4 @@ our @enums = qw# { my $i = 0; our %enums = map { $_ => $i++ } @enums } +# ex: set ro: diff --git a/lib/warnings.pm b/lib/warnings.pm index b0905cd06d..8cd24d4b3f 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -551,4 +551,5 @@ sub warnif delete $warnings::{$_} foreach qw(NORMAL FATAL MESSAGE); 1; + # ex: set ro: |