From: Fred Drake <fdrake@acm.org>
Date: Mon, 30 Nov 1998 20:30:26 +0000 (+0000)
Subject: l2hoption:  Do the "right thing" to quote the right-hand-side of Perl
X-Git-Tag: v1.5.2b1~157
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ca6d6355d753d65d364a02697b92ed6684e44475;p=python

l2hoption:  Do the "right thing" to quote the right-hand-side of Perl
	assignments.  This allows '"', '$', and '@' to be included in
	the values passed to parameters like --address.
---

diff --git a/Doc/tools/mkhowto.sh b/Doc/tools/mkhowto.sh
index cd85ef078c..88050d58fd 100755
--- a/Doc/tools/mkhowto.sh
+++ b/Doc/tools/mkhowto.sh
@@ -157,7 +157,8 @@ build_text() {
 
 l2hoption() {
     if [ "$2" ] ; then
-	echo "\$$1 = \"$2\";" >>$L2H_AUX_INIT_FILE
+	VALUE=`echo "$2" | sed 's/[$"@]/\\\\&/g'`
+	echo "\$$1 = \"$VALUE\";" >>$L2H_AUX_INIT_FILE
     fi
 }