Permalink
Browse files

Replacing an 'eval' call with the '{*}' expansion symbol.

  • Loading branch information...
1 parent ce9cfc6 commit db15aa95f4dc4bf5dfeaa56b1da50067a7a8def3 @dongola7 committed Oct 9, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 socks5.tcl
View
2 socks5.tcl
@@ -106,7 +106,7 @@ proc ::socks5::BindCallback {reason timeout_id sock callback} {
proc ::socks5::FormatAddress {host port} {
if {[regexp -- {^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$} $host]} {
set parts [split $host .]
- set result [eval binary format H2ccccS 01 $parts $port]
+ set result [binary format H2ccccS 01 {*}$parts $port]
} else {
if {[string bytelength $host] > 255} {
return -code error "host must be 255 characters or less"

0 comments on commit db15aa9

Please sign in to comment.