Changeset 23227

Timestamp:

11/11/08 14:09:02 (5 years ago)

Author:

daisuke

Message:

faster date by no standardization

Files:

• lang/perl/HTTP-Headers-Fast/trunk/lib/HTTP/Headers/Fast.pm (modified) (2 diffs)

lang/perl/HTTP-Headers-Fast/trunk/lib/HTTP/Headers/Fast.pm

@@ -369 +369 @@
         ($old) = $self->_header_set( $header, HTTP::Date::time2str($time) );
     } else {
-        ($old) = $self->_header_get($header);
+        ($old) = $self->_header_get($header, 1);
     }
     $old =~ s/;.*// if defined($old);
@@ -375 +375 @@
 }
 
-sub date                { shift->_date_header( 'Date',                @_ ); }
-sub expires             { shift->_date_header( 'Expires',             @_ ); }
-sub if_modified_since   { shift->_date_header( 'If-Modified-Since',   @_ ); }
-sub if_unmodified_since { shift->_date_header( 'If-Unmodified-Since', @_ ); }
-sub last_modified       { shift->_date_header( 'Last-Modified',       @_ ); }
+sub date                { shift->_date_header( 'date',                @_ ); }
+sub expires             { shift->_date_header( 'expires',             @_ ); }
+sub if_modified_since   { shift->_date_header( 'if-modified-since',   @_ ); }
+sub if_unmodified_since { shift->_date_header( 'if-unmodified-since', @_ ); }
+sub last_modified       { shift->_date_header( 'last-modified',       @_ ); }
 
 # This is used as a private LWP extension.  The Client-Date header is
 # added as a timestamp to a response when it has been received.
-sub client_date { shift->_date_header( 'Client-Date', @_ ); }
+sub client_date { shift->_date_header( 'client-date', @_ ); }
 
 # The retry_after field is dual format (can also be a expressed as