Ensure , is escaped in ::js::escape
This commit is contained in:
parent
33e2f705c3
commit
ba0f505e34
@ -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 {&}]}]]
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user