[Demande] Soucis avec expr

[aliasangelius]

J'ai modifié ainsi.. en relisant tout correctement..

tclcopier

set arg [join $arg]
            for {set x 0; set t [clock microseconds]} {$x<$repeat} {incr x} {
                catch [list uplevel 0 $arg] rep
            }
            set t2 [clock microseconds]
            set time [expr ($t2-$t)]
            set interact [expr $time/($repeat/1.0)]
            set time [format %.3f [expr round($time)/1000.0]]
            foreach r [split $rep \n] {

En faisant ainsi j'ai comme réponse :

.[17:02:49] <+alias_angelius[Afk]> !tcl pushmode
.[17:02:51] <@Talk-Me> TCL -> wrong # args: should be "pushmode channel mode ?arg?"
.[17:02:52] <@Talk-Me> Done. 0.044 Millisecondes (44.0 µs/i)
.[17:03:04] <+alias_angelius[Afk]> !tcl info patchlevel
.[17:03:06] <@Talk-Me> TCL -> 8.5.3
.[17:03:07] <@Talk-Me> Done. 0.024 Millisecondes (24.0 µs/i)

Merci de ta patience Crazy