Correction d'un codage tcl d'avertissement de comportement

[heretoc]

Je ferais plutot sous cette forme:

tclcopier

if {[string match -nocase "*" $host]}  { 
   putspeed "notice $nick :"
   putspeed "notice $nick : Voici mes commandes toute vhost"
   }
   foreach vhost0 $vhostniv0 || foreach vhost1 $vhostniv1 {
   if {[string match -nocase $vhost0 $host]}  { 
   putspeed "notice $nick : J'ouvre les commandes qui seront visible aux vhost 0"
   }
   if {[string match -nocase $vhost1 $host]}  { 
   putspeed "notice $nick : J'ouvre les commandes qui seront visible aux vhost 1"
  }
}