From: <de...@de...> - 2009-04-19 00:31:41
|
Author: PeterThoeny Date: 2009-04-18 19:31:23 -0500 (Sat, 18 Apr 2009) New Revision: 18022 Trac url: http://develop.twiki.org/trac/changeset/18022 Modified: twiki/trunk/core/lib/TWiki/Engine.pm Log: Item6251: Case insensitive compare of request method Modified: twiki/trunk/core/lib/TWiki/Engine.pm =================================================================== --- twiki/trunk/core/lib/TWiki/Engine.pm 2009-04-19 00:19:51 UTC (rev 18021) +++ twiki/trunk/core/lib/TWiki/Engine.pm 2009-04-19 00:31:23 UTC (rev 18022) @@ -340,7 +340,7 @@ sub finalizeHeaders { my ( $this, $res, $req ) = @_; $this->finalizeCookies($res); - if ( $req && $req->request_method() eq 'HEAD' ) { + if ( $req && $req->request_method() =~ /^HEAD$/i ) { $res->body(''); $res->deleteHeader('Content-Length'); } |