This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In regen/*.pl, refactor the repeated code for close and rename if different.
authorNicholas Clark <nick@ccl4.org>
Sun, 23 Jan 2011 10:07:52 +0000 (10:07 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 23 Jan 2011 10:07:52 +0000 (10:07 +0000)
commitf038801aea0ff24cf86511fa6679d7dcb859cd8d
tree8f46ea92b16a9121bab4ee0da59cdf219e43a254
parent396ce246b9969d83ec11500def9604b58fb4c726
In regen/*.pl, refactor the repeated code for close and rename if different.

Pass the final file name as an optional second argument of safer_open() and
store it with the file handle. Add a function close_and_rename() which closes
the file handle, then retrieves the final name, and renames the temporary file
if the two differ.
regen/embed.pl
regen/keywords.pl
regen/opcode.pl
regen/overload.pl
regen/reentr.pl
regen/regcomp.pl
regen/regen_lib.pl
regen/warnings.pl