Re: Apache::ServerUtil pb in modperl2

[Randy Kobes]

On Thu, 11 Apr 2002, pascal barbedor wrote:

> I have a problem with Apache::ServerUtil though :
>
> when using $s->dir_config('some') i have this message (and apache segfaults)
>
> "Attempt to free unreferenced scalar at .. line 17"
>
> i have installed modperl through ppd, so have not the t/report procedure
> i am under win2k ppd from theoryx5, ASperl build 631
>
> for now the only lines in httpd.conf concerning modperl are
>
> perlsetvar statpath path
> perlrequire startup.pl
>
> then,
> in startup.pl :
> use Apache2;
> use Apache::ServerUtil();
> use Apache::Const();
>
> use Mymodule();
> ------
>
> in Mymodule.pm
>
> use Apache::ServerUtil;
> my $s=Apache->server;
> [and the incriminated line 17: ] my $base=$s->dir_config('StatPath');

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