Tcl Library Source Code

Artifact 968bb825771764b576b649eea103fe5982c6e4a6:

Attachment "ftp.patch" to ticket [eb0b15d598] added by anonymous 2014-02-17 17:13:43. (unpublished)

---

Index: modules/ftp/ftp.tcl
==================================================================
--- modules/ftp/ftp.tcl
+++ modules/ftp/ftp.tcl
@@ -2919,11 +2919,11 @@
 # Missing field => Not an active connection - Ignore
 # AC == 0       => OAC has run, IDC not     - Wait for IDC, then cleanup
 # AC == 1       => OAC has run, IDC as well - No waiting, just cleanup.
 
 proc ::ftp::WaitDataConn {s} {
-    variable verbose
+    variable VERBOSE
     upvar ::ftp::ftp$s ftp
 
     if {$VERBOSE} { DisplayMsg $s WDC|$s|Begin|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ }
 
     # Passive connection, nothing to do