[Bug] comment regsub altère l'encodage d'une chaîne de caractères

[MenzAgitat]

 
Il semblerait qu'un regsub sur un chaîne de caractères altère le charset de celle-ci.

Le problème a été constaté sur les versions 1.6.21 et 1.8 d'Eggdrop.

Démonstration :

test n°1

TCL

proc ::testproc {} {
	set testvar  "test n°1"
	putlog "---> [encoding convertto identity $testvar]"
}

effet en partyline :

Code :

[00:12:55] ---> test n°1

------------------------------------------------------------------

test n°2

TCL

proc ::testproc {} {
	set testvar  "test n°2"
	regsub {test} $testvar "truc" testvar
	putlog "---> [encoding convertto identity $testvar]"
}

effet en partyline :

Code :

[00:13:02] ---> truc nï¾°2

------------------------------------------------------------------

Contournement du problème :

Utiliser la commande encoding avant tout regsub dans le code.