Custom PerlResponseHandler for a subrequest

	Hello,

I am trying to do something like this in PerlAuthenHandler,
and it mostly works:

sub auth_handler {
	my ($r) = @_;
	...
	if ($cond) {
		$r->set_handlers(PerlResponseHandler => sub {
			my ($r) = @_;
			$r->content_type('text/plain');
			$r->print("custom handler was here\n");
			return Apache2::Const::OK;
		});
		$r->user('dummy-user-for-a-dummy-handler');
		return Apache2::Const::OK;
	}
	...
}

when $cond happens, I get 200 OK with "custom handler was here"
instead of whatever is configured as PerlResponseHandler in httpd.conf.
So far good.

However, when I add mod_rewrite to the mix, it stops working.
I want to allow URLs without .pl at the end to be handled by the same
.pl script (I only added the Rewrite... directives, the rest was
already in httpd.conf):

<Directory /somewhere>
	RewriteCond %{REQUEST_FILENAME} !-d     # skip directories
	RewriteCond %{REQUEST_FILENAME} !-f     # skip existing files
	RewriteCond %{REQUEST_FILENAME}.pl -f   # .pl exists, use it instead
	RewriteRule (.*) $1.pl [L]

	<Files *.pl>
		SetHandler perl-script
		PerlResponseHandler My::Ordinary::Handler
	</Files>
</Directory>

Then for requests meeting $cond above I get the following:

https://example.com/directory -> 302 to /directory/ (trailing slash, OK)
https://example.com/directory/ -> 200 with custom handler as expected
https://example.com/directory/index.pl -> 200 with custom handler as expected
https://example.com/directory/index -> 200 from My::Ordinary::Handler - FAIL
https://example.com/directory/foo.pl -> 200 with custom handler as expected
https://example.com/directory/foo -> 200 from My::Ordinary::Handler - FAIL

It seems that the auth_handler gets called for all the above requests,
but for the failed ones mod_rewrite creates subrequests, which do not inherit
the custom PerlResponseHandler set by auth_handler(). How can I replace
a PerlResponseHandler even for a subrequest? Or how can I tap to a subrequest
creation? Or how can I bypass mod_rewrite from within the PerlAuthenHandler
and return my own 200 OK response immediately?

Thanks,

-Yenya

-- 
| Jan "Yenya" Kasprzak <kas at {fi.muni.cz - work | yenya.net - private}> |
| https://www.fi.muni.cz/~kas/                        GPG: 4096R/A45477D5 |
    We all agree on the necessity of compromise. We just can't agree on
    when it's necessary to compromise.                     --Larry Wall