Changeset 12844 for lang/perl/Sledge-Pages-HTTPEngine

Timestamp:

05/30/08 16:27:11 (5 years ago)

Author:

tokuhirom

Message:

bug fixed.

Files:

• lang/perl/Sledge-Pages-HTTPEngine/trunk/lib/Sledge/Request/HTTPEngine.pm (modified) (2 diffs)

lang/perl/Sledge-Pages-HTTPEngine/trunk/lib/Sledge/Request/HTTPEngine.pm

@@ -45 +45 @@
 sub print {
     my $self = shift;
-    $self->_res->write(@_);
+    $self->_res->body( $self->_res->body . join('', @_));
 }
 
@@ -56 +56 @@
 sub args {
     my $self = shift;
-    return $self->_req->args;
+    return $ENV{QUERY_STRING};
 }