tests/dupHandle.tcl

   1 package require TclCurl
   2
   3 set curlHandle1 [curl::init]
   4
   5 $curlHandle1 configure -url 127.0.0.1
   6
   7 set curlHandle2 [$curlHandle1 duphandle]
   8
   9 $curlHandle1 configure -url 127.0.0.1/~andres/
  10
  11 $curlHandle2 perform
  12
  13
  14 $curlHandle1 cleanup
  15 $curlHandle2 cleanup
  16