Attachment "466746_ftp.diff" to
ticket [466746ffff]
added by
andreas_kupries
2001-10-21 08:42:07.
Index: modules/ftp/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ChangeLog,v
retrieving revision 1.15
diff -u -r1.15 ChangeLog
--- modules/ftp/ChangeLog 2001/10/17 17:27:25 1.15
+++ modules/ftp/ChangeLog 2001/10/21 01:37:54
@@ -1,3 +1,9 @@
+2001-10-20 Andreas Kupries <[email protected]>
+
+ * ftp.tcl: Fixed bug #466746. Reporter of bug unknown, provided
+ fix too. Problem was incomplete handling of [gets] return
+ values. Value -1 signaling an incomplete line was not handled.
+
2001-10-16 Andreas Kupries <[email protected]>
* ftp.n:
Index: modules/ftp/ftp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ftp.tcl,v
retrieving revision 1.15
diff -u -r1.15 ftp.tcl
--- modules/ftp/ftp.tcl 2001/10/17 17:27:26 1.15
+++ modules/ftp/ftp.tcl 2001/10/21 01:37:55
@@ -271,8 +271,10 @@
catch {unset ftp(State)}
catch {close $ftp(CtrlSock); unset ftp(CtrlSock)}
return
- }
-
+ } else {
+ # Fix SF bug #466746: Incomplete line, do nothing.
+ return
+ }
}
if { $DEBUG } {
