Work around limitation of Cygwin Perl: To avoid a permission denial, we need

to do the inplace-edit with a backup file.  A quick test leads me to
believe this is sufficient to allow building the documentation on Cygwin;
a full test is in progress.
This commit is contained in:
Fred Drake 2002-05-02 20:42:30 +00:00
parent b9132a2a15
commit fe3db7d6f0
1 changed files with 10 additions and 1 deletions

View File

@ -1,7 +1,12 @@
#! /usr/bin/env perl
# On Cygwin, we actually have to generate a temporary file when doing
# the inplace edit, or we'll get permission errors. Not sure who's
# bug this is, except that it isn't ours. To deal with this, we
# generate backups during the edit phase and remove them at the end.
#
use English;
$INPLACE_EDIT = '';
$INPLACE_EDIT = '.bak';
# read the labels, then reverse the mappings
require "labels.pl";
@ -60,3 +65,7 @@ while (<>) {
foreach $oldname (keys %newnames) {
rename($oldname, $newnames{$oldname});
}
foreach $filename (glob('*.bak')) {
unlink($filename);
}