forked from pool/apache2-mod_perl
825544925b
OBS-URL: https://build.opensuse.org/request/show/56409 OBS-URL: https://build.opensuse.org/package/show/Apache:Modules/apache2-mod_perl?expand=0&rev=23
48 lines
1.3 KiB
Diff
48 lines
1.3 KiB
Diff
--- perl/modperl/trunk/lib/Apache2/Status.pm 2007/12/31 08:05:11 607697
|
|
+++ perl/modperl/trunk/lib/Apache2/Status.pm 2009/04/01 15:39:56 760926
|
|
@@ -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('<p>');
|
|
$r->print(
|
|
map { qq[<a href="$uri?$_">$status{$_}</a><br />\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 = (
|
|
'<table border="1">',
|
|
"<tr>",
|
|
@@ -289,7 +289,7 @@ sub status_rgysubs {
|
|
my ($r) = @_;
|
|
|
|
local $_;
|
|
- my $uri = $r->uri;
|
|
+ my $uri = $r->location;
|
|
my $cache = __PACKAGE__->registry_cache;
|
|
|
|
my @retval = "<h2>Compiled registry scripts grouped by their handler</h2>";
|
|
@@ -765,7 +765,7 @@ sub as_HTML {
|
|
my ($self, $package, $r) = @_;
|
|
|
|
my @m = qw(<table>);
|
|
- my $uri = $r->uri;
|
|
+ my $uri = $r->location;
|
|
my $is_main = $package eq "main";
|
|
|
|
my $do_dump = has($r, "dumper");
|