Re: Patch to LWP::Protocol::ftp to return last modified time
Charles C. Fu (ccwf@bacchus.com)
Wed, 15 Jul 1998 14:51:50 -0700 (PDT)
Inequality in If-Modified-Since test was slightly incorrect.
-ccwf
======================================================================
--- orig/ftp.pm Wed Jul 15 14:43:33 1998
+++ /usr/local/lib/site_perl/LWP/Protocol/ftp.pm Wed Jul 15 14:43:44 1998
@@ -138,7 +138,7 @@
if (my $mod_time = $ftp->mdtm($remote_file)) {
$response->last_modified($mod_time);
if (my $ims = $request->if_modified_since) {
- if ($mod_time > $ims) {
+ if ($mod_time >= $ims) {
$response->code(&HTTP::Status::RC_NOT_MODIFIED);
$response->message("Not modified");
return $response;