perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Udlei Nattis <maill...@nixus.com.br>
Subject mp2 - err_headers_out
Date Thu, 08 Sep 2005 21:23:10 GMT
Hi,

I porting my shared store to modperl2, but for redirect i have one problem:

[Thu Sep 08 16:50:08 2005] [notice] Apache/2.0.54 (Unix) mod_perl/2.0.1
Perl/v5.8.4 configured -- resuming normal operations

---> [Thu Sep 08 16:50:09 2005] [error] [client 127.0.0.1] Can't locate
object method "STORE" via package "APR::Table" at
/export/Test/lib/Test.pm line 25.\n

I dont understand this problem

look my httpd.conf

PerlSwitches -I/export/Test/lib

<Location /Test>
     SetHandler modperl
     PerlResponseHandler Test
     PerlOptions +GlobalRequest
     PerlOptions +ParseHeaders
</Location>

this ok

Test.pm

package Test;

use strict;
use warnings FATAL => 'all';

#use mod_perl;
use Apache2::RequestIO ();
use Apache2::RequestRec ();
use Apache2::Const -compile => qw(OK HTTP_MOVED_TEMPORARILY);

sub handler {
     my $r = shift;

     my $location = "http://demo.nixus.com.br";
     $r->err_headers_out->{'Pragma'} = "no-cache";

     Apache2::Const::OK;

}

1;

Line with problem is: "$r->err_headers_out->{'Pragma'} = "no-cache";" or
change Pragma to Location....


Someone have ideia?

Sorry my english



Mime
View raw message