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");