Patch to Apache::RedirectFixLog in mod_perl-1.21

[David D. Kilzer]

Hi,

The patch below fixes a problem in Apache::RedirectFixLog when the URI
being logged required use of a filename listed the DirectoryIndex 
directive.

The solution is described in the following post by Doug MacEachern to
the modperl list in 1998.

  http://www.geocrawler.com/mail/msg.php3?msg_id=1059028&list=182

A similar problem is described in the following thread in 1999 (though 
the answer is never realized):

  http://www.geocrawler.com/mail/msg.php3?msg_id=2466537&list=182

I am not subscribed to modperl.  Please Cc: me on any responses.

Thanks!

Dave
--
David D. Kilzer           \  ``Follow your dreams, you can reach your goals.
Senior Programmer         /      I'm living proof. Beefcake. BEEFCAKE!''
E-Markets, Inc.           \                   Eric Cartman
[EMAIL PROTECTED]    /                   _South_Park_


diff -u mod_perl-1.21/lib/Apache/RedirectLogFix.pm.orig 
mod_perl-1.21/lib/Apache/RedirectLogFix.pm
--- mod_perl-1.21/lib/Apache/RedirectLogFix.pm.orig     Wed Aug 12 20:46:26 1998
+++ mod_perl-1.21/lib/Apache/RedirectLogFix.pm  Tue Jan 11 21:21:08 2000
@@ -3,7 +3,7 @@
 use Apache::Constants qw(OK DECLINED REDIRECT);
 
 sub handler {
-    my $r = shift;
+    my $r = shift->last;
     return DECLINED unless $r->handler && ($r->handler eq "perl-script");
 
     if(my $loc = $r->header_out("Location")) {