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:
parent
b9132a2a15
commit
fe3db7d6f0
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue