On Tuesday 22 June 2010 12:01:39 Winfried Neessen wrote:
> I have a subroutine "handler" where I import the HTTP object from mod_perl
> via: my $r = shift;
> This works well and as expected. But if I wanna use that object later on
> in a different
> subroutine, I get the following error message everytime I try to use the
> $r object in the
> subroutine: "argument is not a blessed reference (expecting an APR::Table
> derived object)"
>
> Here is a code example of what I've written:
>
> ====================== begin code snippet =================================
...
> ## Extract value from HTTP object
> my $value = $r->headers_in( $head );
That's not the way to go. $r->headers_in returns an APR::Table object. This
object holds all input headers. This object can then be used as tied hash or
as described in L<APR::Table>.
In your case I'd do
$r->headers_in->{$head}
or
$r->headers_in->get($head)
The way you call headers_in means you want to set a new APR::Table object as
input header collection. Hence the message.
...
> ====================== end code snippet =================================
Torsten Förtsch
--
Need professional modperl support? Hire me! (http://foertsch.name)
Like fantasy? http://kabatinte.net
