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;