From 00b27093657a087ae6d3f4eacaa1dc5f209f1e01 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 15 May 2009 18:02:49 +0000
Subject: [PATCH] fixed PseudoRequest to do param list correctly

---
 t/lib/WebGUI/PseudoRequest.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/lib/WebGUI/PseudoRequest.pm b/t/lib/WebGUI/PseudoRequest.pm
index b2e359b07..76160d3e3 100644
--- a/t/lib/WebGUI/PseudoRequest.pm
+++ b/t/lib/WebGUI/PseudoRequest.pm
@@ -231,7 +231,10 @@ all form variables.
 sub body {
 	my $self = shift;
 	my $value = shift;
-	return keys %{ $self->{body} } unless defined $value;
+    if ( !defined $value ) {
+        return keys %{ $self->{body} } if wantarray;
+        return { %{ $self->{body} } };
+    }
 	if ($self->{body}->{$value}) {
         if (wantarray && ref $self->{body}->{$value} eq "ARRAY") {
             return @{$self->{body}->{$value}};