Imported Upstream version 7.22.0

[sven/tclcurl.git] / generic / tclcurl.tcl

diff --git a/generic/tclcurl.tcl b/generic/tclcurl.tcl
index bc346360728d46bbcb74c609d0753520cd1af0d0..9f0b54a5b6f23b28e7a39b6516157af2d4dee61c 100755 (executable)
--- a/generic/tclcurl.tcl
+++ b/generic/tclcurl.tcl
@@ -6,13 +6,13 @@
 ## Includes the tcl part of TclCurl
 ################################################################################
 ################################################################################
-## (c) 2001-2009 Andres Garcia Garcia. fandom@telefonica.net
+## (c) 2001-2011 Andres Garcia Garcia. fandom@telefonica.net
 ## See the file "license.terms" for information on usage and redistribution
 ## of this file and for a DISCLAIMER OF ALL WARRANTIES.
 ################################################################################
 ################################################################################
 
-package provide TclCurl 7.19.6
+package provide TclCurl 7.22.0
 
 namespace eval curl {
 
@@ -68,6 +68,11 @@ proc ::curl::transfer {args} {
     set newArgs ""
     catch {unset getInfo}
 
+    if {[llength $args]==0} {
+        puts "No transfer configured"
+        return
+    }
+
     foreach {option value} $args {
         set noPassOption 0
         set block        1