From fe3db7d6f055ec432d43f417cdf8d93897386aa4 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Thu, 2 May 2002 20:42:30 +0000
Subject: [PATCH] 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.

---
 Doc/tools/node2label.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Doc/tools/node2label.pl b/Doc/tools/node2label.pl
index 90f0c18933a..a3c6c84a89e 100755
--- 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 @@ while (<>) {
 foreach $oldname (keys %newnames) {
   rename($oldname, $newnames{$oldname});
 }
+
+foreach $filename (glob('*.bak')) {
+  unlink($filename);
+}