From defef0767d70c2f72f41b306670e415efdc16c93 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 16 Oct 2006 15:50:03 +0000
Subject: [PATCH] missed two places where getStatus is called in list context. 
 fixed.

---
 lib/WebGUI/Session/Http.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Session/Http.pm b/lib/WebGUI/Session/Http.pm
index 5330a04ee..9a854847c 100644
--- a/lib/WebGUI/Session/Http.pm
+++ b/lib/WebGUI/Session/Http.pm
@@ -211,8 +211,9 @@ sub sendHeader {
 		if ($self->{_http}{filename}) {
                         $request->headers_out->set('Content-Disposition' => qq!attachment; filename="$self->{_http}{filename}"!);
 		}
-		$request->status($self->getStatus());
-		$request->status_line($self->getStatus().' '.$self->{_http}{statusDescription});
+		my ($status, $description) = $self->getStatus();
+		$request->status($status);
+		$request->status_line(join ' ', $status, $description);
 	}
 	return;
 }
@@ -223,8 +224,9 @@ sub _sendMinimalHeader {
 	$request->content_type('text/html; charset=UTF-8');
 	$request->headers_out->set('Cache-Control' => 'private');
 	$request->no_cache(1);
-	$request->status($self->getStatus());
-	$request->status_line($self->getStatus().' '.$self->{_http}{statusDescription});
+	my ($status, $description) = $self->getStatus();
+	$request->status($status);
+	$request->status_line(join ' ', $status, $description);
 	return;
 }