initial checkin of TclCurl
This commit is contained in:
16
tests/dupHandle.tcl
Executable file
16
tests/dupHandle.tcl
Executable file
@ -0,0 +1,16 @@
|
||||
package require TclCurl
|
||||
|
||||
set curlHandle1 [curl::init]
|
||||
|
||||
$curlHandle1 configure -url 127.0.0.1
|
||||
|
||||
set curlHandle2 [$curlHandle1 duphandle]
|
||||
|
||||
$curlHandle1 configure -url 127.0.0.1/~andres/
|
||||
|
||||
$curlHandle2 perform
|
||||
|
||||
|
||||
$curlHandle1 cleanup
|
||||
$curlHandle2 cleanup
|
||||
|
Reference in New Issue
Block a user