Make sure we close the data connection upon an error.

2003-02-27 10:53:24 +00:00 · 2003-02-27 10:53:24 +00:00 · 118bc545b1
parent 3405ab31ed
commit 118bc545b1
1 changed files with 1 additions and 0 deletions
--- a/scheme/ftpd/ftpd.scm
+++ b/scheme/ftpd/ftpd.scm
@ -1305,6 +1305,7 @@

 (define (signal-error! code message)
  (replace-reply! code message)
+  (maybe-close-data-connection)
  (signal 'ftpd-error code message))

 (define (register-reply! code . messages)