theory at bricolage
Apr 30, 2008, 11:25 AM
Post #1 of 1
(102 views)
Permalink
|
|
[8214] 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)
ViewCVS: http://viewsvn.bricolage.cc/?rev=8214&view=rev
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
Modified: bricolage/trunk/inst/modules.pl
===================================================================
--- 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::Dumper->Dump([\@MOD],['MOD']);
close OUT;
Modified: bricolage/trunk/t/Bric/App/Session/Test.pm
===================================================================
--- 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 { 1 };
}
+BEGIN {
+ package Apache::FakeRequest;
+ sub new { bless {} }
+}
+
##############################################################################
# Setup for tests.
##############################################################################
|
