please Help me asap

[c0re]

hello, i have an script its check for error before rehash.

Code: Select all

proc proc_rehash { nick uhost hand chan arg } {
   set the_name [lindex [split $arg] 0]

   if {[catch {uplevel #0 [list source scripts/$the_name.tcl]} error]} {
      putquick "PRIVMSG $chan :Error While Loading $the_name -- Errormsg: $error"
      putquick "PRIVMSG $chan :script: $the_name -- ::errorInfo: $::errorInfo"
      return
   }
rehash
   putquick "PRIVMSG $chan :script: <$the_name> -- Loaded Without Error.."

} 

i want it to check for error then write it to scripts.tcl before .rehash

thanks
sorry for my english.