]>
Commit | Line | Data |
---|---|---|
67e9c521 AM |
1 | --- perl/modperl/trunk/lib/Apache2/Status.pm 2007/12/31 08:05:11 607697 |
2 | +++ perl/modperl/trunk/lib/Apache2/Status.pm 2009/04/01 15:39:56 760926 | |
3 | @@ -29,7 +29,7 @@ | |
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 @@ | |
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 @@ | |
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 @@ | |
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 @@ | |
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"); |