summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2008-10-23 11:43:43 +0200
committerYorhel <git@yorhel.nl>2008-10-23 11:43:43 +0200
commit9edf06e49812d08ec67ba914c0052773b4a2c7ae (patch)
tree89a9430814bd6a279458e426b3a4211b286f7b95
parent494fafb1bc3ad9b2616f06a4c289983044bde734 (diff)
Reset response data on resRedirect
-rw-r--r--lib/YAWF/Response.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/YAWF/Response.pm b/lib/YAWF/Response.pm
index 3334399..a005587 100644
--- a/lib/YAWF/Response.pm
+++ b/lib/YAWF/Response.pm
@@ -130,6 +130,7 @@ sub resStatus {
sub resRedirect {
my($self, $url, $type) = @_;
+ $self->resInit;
my $fd = $self->resFd();
print $fd 'Redirecting...';
$self->resHeader('Location' => $self->reqHost().$url);