Re: dir_config and Apache::Table confusion

[Doug MacEachern]

On 21 Sep 2000, Bjørn Ola Smievoll wrote:

> If I do this:
> 
> $r->print($r->dir_config('key'));     
> 
>  Then key is printed.
>  If I then do this:
> 
> my $tab = $r->dir_config;
> $r->print(Dumper($tab));   # Using Data::Dumper
> 
>  I get '$VAR1 = bless( {}, 'Apache::Table' )';
>  It's empty, how come?

works fine for me with this config:

<Location /perl>
PerlSetVar foo bar
SetHandler perl-script
PerlHandler Apache::Registry
Options +ExecCGI
</Location>

and test:

use Data::Dumper;

my $r = shift;

$r->send_http_header;

$r->print($r->dir_config('foo'), "\n");

my $tab = $r->dir_config;

$r->print(Dumper $tab);

outputs:
bar
$VAR1 = bless( {
                 'foo' => 'bar'
               }, 'Apache::Table' );

with mod_perl-1.24_01-dev, apache_1.3.13-dev, perl-current (5.7.0@7093)