Ensure , is escaped in ::js::escape

This commit is contained in:
df 2021-04-10 01:05:19 +01:00
parent 33e2f705c3
commit ba0f505e34

View File

@ -102,7 +102,7 @@ proc ::js::_unescape {str} {
proc ::js::escape {str} { proc ::js::escape {str} {
return [subst -nobackslashes -novariables \ return [subst -nobackslashes -novariables \
[regsub -all -- {[^A-Za-z0-9@*_+-./]+} $str \ [regsub -all -- {[^A-Za-z0-9@*_+./-]+} $str \
{[::js::_escape {&}]}]] {[::js::_escape {&}]}]]
} }