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.
This commit is contained in:
Fred Drake 1998-11-30 20:30:26 +00:00
parent a8ba364700
commit ca6d6355d7

View file

@ -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
}