--- mod_perl-2.0.4/lib/Apache2/Status.pm.cve0796 +++ mod_perl-2.0.4/lib/Apache2/Status.pm @@ -29,7 +29,7 @@ use File::Spec (); use Apache2::Const -compile => qw(OK); -$Apache2::Status::VERSION = '4.00'; # mod_perl 2.0 +$Apache2::Status::VERSION = '4.01'; # mod_perl 2.0 use constant IS_WIN32 => ($^O eq "MSWin32"); @@ -126,7 +126,7 @@ sub handler { $r->print(symdump($r, $qs)); } else { - my $uri = $r->uri; + my $uri = $r->location; $r->print('
');
$r->print(
map { qq[$status{$_}
\n] } sort { lc $a cmp lc $b } keys %status
@@ -198,7 +198,7 @@ sub status_section_config {
sub status_inc {
my ($r) = @_;
- my $uri = $r->uri;
+ my $uri = $r->location;
my @retval = (
'