--- lib/Apache2/Status.pm 2009/04/01 15:32:12 760925 +++ lib/Apache2/Status.pm 2009/04/01 15:39:56 760926 @@ -29,7 +29,7 @@ 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 @@ $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_inc {
my ($r) = @_;
- my $uri = $r->uri;
+ my $uri = $r->location;
my @retval = (
'