www/rt36/files/ap2mp2-fix.pl


1
2
3
4
5
6
7
8
9
10

# temp fix for mp2-09... make a dummy Apache->request
require Apache::RequestUtil;
no warnings 'redefine';
my $sub = *Apache::request{CODE};
*Apache::request = sub {
     my $r;
     eval { $r = $sub->('Apache'); };
     # warn $@ if $@;
     return $r;
};