From de47c22effdd916dad4917ee7b70c895132ac716 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Sun, 17 May 2009 02:55:31 +0000
Subject: [PATCH] fixed pseudorequest "Cannot use undefined value as a HASH
 reference"

---
 t/lib/WebGUI/PseudoRequest.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/lib/WebGUI/PseudoRequest.pm b/t/lib/WebGUI/PseudoRequest.pm
index 76160d3e3..18f2de8a4 100644
--- a/t/lib/WebGUI/PseudoRequest.pm
+++ b/t/lib/WebGUI/PseudoRequest.pm
@@ -232,6 +232,7 @@ sub body {
 	my $self = shift;
 	my $value = shift;
     if ( !defined $value ) {
+        return if !$self->{body};
         return keys %{ $self->{body} } if wantarray;
         return { %{ $self->{body} } };
     }