Apache::FakeRequest does not exist in mod_perl 2.

Revision

8214

Author

theory

Date

2008-04-30 11:25:20 -0700 (Wed, 30 Apr 2008)

Log Message

Apache::FakeRequest does not exist in mod_perl 2. So we fake the faker.

Modified Paths

• bricolage/trunk/inst/modules.pl
• bricolage/trunk/t/Bric/App/Session/Test.pm

--- bricolage/trunk/inst/modules.pl	2008-04-30 17:25:18 UTC (rev 8213)
+++ bricolage/trunk/inst/modules.pl	2008-04-30 18:25:20 UTC (rev 8214)
 -85,7 +85,7 
 
 
 # all done, dump out module database, announce success and exit
-open(OUT, ">modules.db") or die "Unable to open modules.db : $!";

+open OUT, '>modules.db' or die "Unable to open modules.db: $!n";
 print OUT Data:umper->Dump([MOD],['MOD']);
 close OUT;
 

--- bricolage/trunk/t/Bric/App/Session/Test.pm	2008-04-30 17:25:18 UTC (rev 8213)
+++ bricolage/trunk/t/Bric/App/Session/Test.pm	2008-04-30 18:25:20 UTC (rev 8214)
 -3,7 +3,6 
 use warnings;

 use base qw(Bric::Test::Base);
 use Test::More;
-use Apache::FakeRequest;

 use Bric::App::Session;
 
 BEGIN {
 -13,6 +12,11 
     sub bake ;
 }
 
+BEGIN {
+    package Apache::FakeRequest;

+    sub new { bless {} }
+}
+
 ##############################################################################
 # Setup for tests.
 ##############################################################################