You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@locus.apache.org on 2000/03/03 07:20:51 UTC
cvs commit: modperl/lib/Apache RedirectLogFix.pm
dougm 00/03/02 22:20:50
Modified: . Changes
lib/Apache RedirectLogFix.pm
Log:
Apache::RedirectLogFix now uses $r->last
Revision Changes Path
1.387 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.386
retrieving revision 1.387
diff -u -r1.386 -r1.387
--- Changes 2000/03/03 04:40:10 1.386
+++ Changes 2000/03/03 06:20:48 1.387
@@ -10,6 +10,9 @@
=item 1.21_01-dev
+Apache::RedirectLogFix now uses $r->last
+[David D. Kilzer <dd...@e-markets.com>]
+
tweaks for sfio
[Lupe Christoph <lu...@lupe-christoph.de>]
1.3 +1 -1 modperl/lib/Apache/RedirectLogFix.pm
Index: RedirectLogFix.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/RedirectLogFix.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- RedirectLogFix.pm 1998/08/13 01:46:26 1.2
+++ RedirectLogFix.pm 2000/03/03 06:20:49 1.3
@@ -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")) {