Changeset 17077 for lang/perl/HTTP-Engine/branches

Timestamp:

08/05/08 00:01:28 (5 years ago)

Author:

tokuhirom

Message:

$c->req->base is not a main problem

Files:

• lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test_upload.t (modified) (3 diffs)

lang/perl/HTTP-Engine/branches/lazy_request/t/020_interface/test_upload.t

@@ -36 +36 @@
             request_handler => sub {
                 my $c = shift;
-                $c->res->header( 'X-Req-Base' => $c->req->base );
                 $c->res->body('OK!');
                 return unless $body;
@@ -98 +97 @@
 Content-Type: text/html
 Status: 200
-X-Req-Base: http://localhost/
 
 OK!
@@ -107 +105 @@
 Content-Type: text/html
 Status: 200
-X-Req-Base: http://localhost/
 
 OK!