From 39fe51eedfac1c255561cf9c7031a79b87e7ddb3 Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Sun, 1 Jun 2008 22:34:55 -0700
Subject: Fix bug where the WinHelp backend corrupts the internal data

WinHelp/RTF needs to convert \ to \\, but did so on the global data,
so the DIP output was corrupted.
---
 doc/rdsrc.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'doc/rdsrc.pl')

diff --git a/doc/rdsrc.pl b/doc/rdsrc.pl
index a6a7008..f27381a 100644
--- a/doc/rdsrc.pl
+++ b/doc/rdsrc.pl
@@ -1280,11 +1280,12 @@ sub write_hlp {
       # Code paragraph.
       print "\\keep\\f1\\sb120\n";
       foreach $i (@$pname) {
+	my $x = $i;
         warn "code line longer than 68 chars: $i\n" if length $i > 68;
-	$i =~ s/\\/\\\\/g;
-	$i =~ s/\{/\\\{/g;
-	$i =~ s/\}/\\\}/g;
-        print "$i\\par\\sb0\n";
+	$x =~ s/\\/\\\\/g;
+	$x =~ s/\{/\\\{/g;
+	$x =~ s/\}/\\\}/g;
+        print "$x\\par\\sb0\n";
       }
       $newpar = "\\pard\\f0\\sb120\n";
     } elsif ($ptype eq "bull" || $ptype eq "norm") {
-- 
cgit v1.2.3