> Does the following, or some variation, work?
>
> ==================================================================
> package Apache::Test;
>
> # PerlModule Apache::Test
> # <Location /hello-world>
> # SetHandler modperl
> # PerlResponseHandler Apache::Test
> # PerlSetVar TEST "jdjdsds"
> # </Location>
>
> use strict;
>
> # based on t/conf/modperl_extra.pl in the mod_perl-2 sources
> use Apache::RequestRec ();
> use Apache::RequestIO ();
> use Apache::ServerUtil ();
> use Apache::RequestUtil ();
> use APR::Table;
> use Apache::Const -compile => qw(:common);
> use APR::Const -compile => qw(:common);
>
> sub handler {
> my $r = shift;
> my $key = $r->dir_config->get('TEST');
> $r->content_type('text/plain');
> $r->print($key);
> Apache::OK;
> }
>
> 1;
>
> ===========================================================
>
> best regards,
> randy kobes
>
>
yes it works perfectly well.
but you are accessing dir_config through a request object and in my example
I am accessing it through the server object in a "use module" in startup.pl
best regards
pascal
