Tk Library Source Code

Artifact [64c836490e]
Login

Artifact 64c836490e8a0d5406f869b9a0eccc166031495d:

Attachment "582668.diff" to ticket [582668ffff] added by andreas_kupries 2002-08-07 05:38:18.
Index: modules/ftp/ftp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ftp.tcl,v
retrieving revision 1.24
diff -u -r1.24 ftp.tcl
--- modules/ftp/ftp.tcl	15 Feb 2002 05:35:30 -0000	1.24
+++ modules/ftp/ftp.tcl	6 Aug 2002 22:36:33 -0000
@@ -1943,7 +1943,7 @@
     }
 
     if {($ftp(inline) != 0) && ($dest != "")} {
-        DisplayMsg $s "Cannot return data in a variable, and place it in destination file." error
+        DisplayMsg $s "Cannot return data in a variable or channel, and place it in destination file." error
         return 0
     }
 
@@ -1952,7 +1952,7 @@
         return 0
     }
 
-    if {$ftp(inline) != 2} {
+    if {$ftp(inline) == 0} {
 	if { $dest == "" } {
 	    set dest $source
 	} else {