Posted to tcl by evilotto at Thu Oct 04 17:34:16 GMT 2012view raw

  1. package require Thread
  2.  
  3. for {set x 0} {$x < 1000000} {incr x} {
  4. thread::create {
  5. package require tls
  6. }
  7. }
  8.