Ensure , is escaped in ::js::escape

This commit is contained in:
df 2021-04-10 01:05:19 +01:00
parent d5b34ed2c3
commit 033eff6fcc

View File

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