From 851844c917f029ef864fc121ceba30df24e22401 Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Tue, 19 Jun 2012 16:20:56 -0400
Subject: [PATCH] lots of stuff expects the request object to have a hostname
 method.  give it one.

---
 docs/changelog/7.x.x.txt      | 1 +
 t/lib/WebGUI/PseudoRequest.pm | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index b5126e4fc..40c96ae32 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.10.25
+ - added: give WebGUI::PseudoRequest a hostname method
  - fixed: don't clobber the request handler if WebGUI::Test was loaded inside of mod_perl
  - fixed #12365: editing a metadata may cause a fatal error (Arjan Widlak / United Knowledge)
  - fixed #12346: toVersion in upgrade_7.9.34-7.10.22.pl was "0.0.0"
diff --git a/t/lib/WebGUI/PseudoRequest.pm b/t/lib/WebGUI/PseudoRequest.pm
index 3def63d33..c57b09356 100644
--- a/t/lib/WebGUI/PseudoRequest.pm
+++ b/t/lib/WebGUI/PseudoRequest.pm
@@ -73,6 +73,8 @@ sub new {
 	return $self;
 }
 
+sub hostname { 'localhost' }
+
 #----------------------------------------------------------------------------
 
 =head2 body ( [$value])