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...@hyperreal.org on 1998/08/13 03:46:27 UTC
cvs commit: modperl/lib/Apache RedirectLogFix.pm
dougm 98/08/12 18:46:27
Modified: . Changes
lib/Apache RedirectLogFix.pm
Log:
get rid of warning in Apache::RedirectLogFix [Brian Moseley <ix...@maz.org>]
Revision Changes Path
1.108 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -r1.107 -r1.108
--- Changes 1998/08/11 19:14:12 1.107
+++ Changes 1998/08/13 01:46:25 1.108
@@ -8,6 +8,8 @@
=item 1.15_01-dev
+get rid of warning in Apache::RedirectLogFix [Brian Moseley <ix...@maz.org>]
+
added $r->internal_redirect method
Apache::TieHashTable class enhancements:
1.2 +1 -1 modperl/lib/Apache/RedirectLogFix.pm
Index: RedirectLogFix.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/RedirectLogFix.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- RedirectLogFix.pm 1998/02/10 21:36:23 1.1
+++ RedirectLogFix.pm 1998/08/13 01:46:26 1.2
@@ -4,7 +4,7 @@
sub handler {
my $r = shift;
- return DECLINED unless $r->handler eq "perl-script";
+ return DECLINED unless $r->handler && ($r->handler eq "perl-script");
if(my $loc = $r->header_out("Location")) {
if($r->status == 200 and substr($loc, 0, 1) ne "/") {