Ticket UUID: | 991452 | |||
Title: | ftp::Quote should join arguments | |||
Type: | Bug | Version: | None | |
Submitter: | nobody | Created on: | 2004-07-15 09:18:59 | |
Subsystem: | ftp | Assigned To: | gwlester | |
Priority: | 5 Medium | Severity: | ||
Status: | Deleted | Last Modified: | 2013-07-04 20:09:25 | |
Resolution: | Not Applicable Here | Closed By: | ||
Closed on: | ||||
Description: |
in ::ftp::Quote arguments are simply reached to the server, but this is a tcl list. If list values contain spaces or special characters, tcl wraps list elements in braces and these get handed over to the ftp-server. I suggest the following mini-patch, which joins the args by spaces: --- ftp.tcl.orig Thu Jul 15 10:42:53 2004 +++ ftp.tcl Thu Jul 15 10:38:18 2004 @@ -2201,7 +2201,7 @@ return 0 } - set ftp(Cmd) $args + set ftp(Cmd) [join $args " "] set ftp(Quote) {} set ftp(State) quote |