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

freddrake · freddrake · commit fe3db7d6f055 · 2002-05-02T20:42:30.000Z
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.
diff --git a/Doc/tools/node2label.pl b/Doc/tools/node2label.pl
@@ -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 @@
 foreach $oldname (keys %newnames) {
   rename($oldname, $newnames{$oldname});
 }
+
+foreach $filename (glob('*.bak')) {
+  unlink($filename);
+}
