lots of stuff expects the request object to have a hostname method. give it one.

scottwalters · scottwalters · commit 851844c917f0 · 2012-06-19T16:20:56.000-04:00
diff --git 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
@@ -73,6 +73,8 @@ sub new {
 	return $self;
 }
 
+sub hostname { 'localhost' }
+
 #----------------------------------------------------------------------------
 
 =head2 body ( [$value])

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`7.10.25`
	`2`	`+ - added: give WebGUI::PseudoRequest a hostname method`
`2`	`3`	`- fixed: don't clobber the request handler if WebGUI::Test was loaded inside of mod_perl`
`3`	`4`	`- fixed #12365: editing a metadata may cause a fatal error (Arjan Widlak / United Knowledge)`
`4`	`5`	`- fixed #12346: toVersion in upgrade_7.9.34-7.10.22.pl was "0.0.0"`