Home | History | Annotate | Download | only in apache2-modperl
      1 --- mod_perl-2.0.2/lib/Apache2/Status.pm.orig	Thu Oct 20 17:04:43 2005
      2 +++ mod_perl-2.0.2/lib/Apache2/Status.pm	Thu Aug 20 11:38:03 2009
      3 @@ -28,7 +28,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 @@ -125,7 +125,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 @@ -197,7 +197,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 @@ -285,7 +285,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 @@ -760,7 +760,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");
     48