PerlResponseHandler ignored

[Cristi Barladeanu <cr...@grapefruit.ro>]

Hello,

I've tried to use one of the examples found in the mod_perl docs, but the PerlResponseHandler is not taken into consideration. 

My Perl module is:

---------------------------------------------------

package Testing::Response;

use strict;

use Apache2::RequestRec (); # for $r->content_type
use Apache2::RequestIO ();  # for $r->print

use Apache2::Const -compile => ':common';

sub handler {
    my $r = shift;

    $r->content_type('text/plain');
    $r->subprocess_env;
    for (sort keys %ENV){
        $r->print("$_ => $ENV{$_}\n");
    }

    return Apache2::Const::OK;
}

1;

-----------------------------------------------------       

With the httpd config:

-----------------------------------------------------

<Location />
    Order deny,allow
    allow from all

    SetHandler perl-script
    PerlResponseHandler Testing::Response
</Location>

-----------------------------------------------------

Still, my Apache sends it's content as the filter doesn't even exists.

What am I missing here?

Thank you,
Cristi


--

Cristi Barladeanu
Developer
GRAPEFRUIT

tel/fax: +40 232 233066, 233068
mobile: +40 724 363640
www.grapefruit.ro