apache-mod_perl-CVE-2009-0796.patch

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