Changeset 25913 for lang/perl/HTTP-Engine

Timestamp:

12/05/08 11:40:35 (5 weeks ago)

Author:

markstos

Message:

Prevent warning when no $res->method is set:

Use of uninitialized value in string eq at ../lib/HTTP/Engine/ResponseFinalizer.pm line 48

Files:

• lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/ResponseFinalizer.pm (modified) (1 diff)

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/ResponseFinalizer.pm

@@ -46 +46 @@
     }
 
-    $res->body('') if $req->method eq 'HEAD';
+    $res->body('') if ((defined $req->method) and ($req->method eq 'HEAD'));
 }