[svn] --delete-after wasn't implemented for files retrieved by FTP or corresponding to

[wget] / src / retr.c

diff --git a/src/retr.c b/src/retr.c
index 62b98a34c89306420689cd9bb3a77784441e9c9c..7e884f1b3cb4bef1e48b35e04124159b664cf867 100644 (file)
--- a/src/retr.c
+++ b/src/retr.c
@@ -465,6 +465,8 @@ retrieve_from_file (const char *file, int html, int *count)
 
       if (filename && opt.delete_after && file_exists_p (filename))
        {
+         DEBUGP (("Removing file due to --delete-after in"
+                  " retrieve_from_file():\n"));
          logprintf (LOG_VERBOSE, _("Removing %s.\n"), filename);
          if (unlink (filename))
            logprintf (LOG_NOTQUIET, "unlink: %s\n", strerror (errno));