mp2 - err_headers_out

[Udlei Nattis]

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