| 1 |
--- mod_perl-2.0.4/lib/Apache2/Status.pm.cve0796 |
| 2 |
+++ mod_perl-2.0.4/lib/Apache2/Status.pm |
| 3 |
@@ -29,7 +29,7 @@ use File::Spec (); |
| 4 |
|
| 5 |
use Apache2::Const -compile => qw(OK); |
| 6 |
|
| 7 |
-$Apache2::Status::VERSION = '4.00'; # mod_perl 2.0 |
| 8 |
+$Apache2::Status::VERSION = '4.01'; # mod_perl 2.0 |
| 9 |
|
| 10 |
use constant IS_WIN32 => ($^O eq "MSWin32"); |
| 11 |
|
| 12 |
@@ -126,7 +126,7 @@ sub handler { |
| 13 |
$r->print(symdump($r, $qs)); |
| 14 |
} |
| 15 |
else { |
| 16 |
- my $uri = $r->uri; |
| 17 |
+ my $uri = $r->location; |
| 18 |
$r->print('<p>'); |
| 19 |
$r->print( |
| 20 |
map { qq[<a href="$uri?$_">$status{$_}</a><br />\n] } sort { lc $a cmp lc $b } keys %status |
| 21 |
@@ -198,7 +198,7 @@ sub status_section_config { |
| 22 |
sub status_inc { |
| 23 |
my ($r) = @_; |
| 24 |
|
| 25 |
- my $uri = $r->uri; |
| 26 |
+ my $uri = $r->location; |
| 27 |
my @retval = ( |
| 28 |
'<table border="1">', |
| 29 |
"<tr>", |
| 30 |
@@ -289,7 +289,7 @@ sub status_rgysubs { |
| 31 |
my ($r) = @_; |
| 32 |
|
| 33 |
local $_; |
| 34 |
- my $uri = $r->uri; |
| 35 |
+ my $uri = $r->location; |
| 36 |
my $cache = __PACKAGE__->registry_cache; |
| 37 |
|
| 38 |
my @retval = "<h2>Compiled registry scripts grouped by their handler</h2>"; |
| 39 |
@@ -765,7 +765,7 @@ sub as_HTML { |
| 40 |
my ($self, $package, $r) = @_; |
| 41 |
|
| 42 |
my @m = qw(<table>); |
| 43 |
- my $uri = $r->uri; |
| 44 |
+ my $uri = $r->location; |
| 45 |
my $is_main = $package eq "main"; |
| 46 |
|
| 47 |
my $do_dump = has($r, "dumper"); |
Parent Directory
| 
Revision Log
| 
Revision Graph
