X-Git-Url: http://git.sven.stormbind.net/?p=sven%2Ftclcurl.git;a=blobdiff_plain;f=generic%2Ftclcurl.tcl;h=9f0b54a5b6f23b28e7a39b6516157af2d4dee61c;hp=bc346360728d46bbcb74c609d0753520cd1af0d0;hb=refs%2Ftags%2Fupstream%2F7.22.0;hpb=b0e6fb6e4379fb87fa2854b84a56c5ad49c644da

diff --git a/generic/tclcurl.tcl b/generic/tclcurl.tcl
index bc34636..9f0b54a 100755
--- 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