Pull r760926 from stream to fix CVE-2009-0796

This will be fixed in 2.0.5 and can be removed

SVN:        http://svn.apache.org/viewvc?rev=760926&view=rev
Security:   http://www.vuxml.org/freebsd/4a638895-41b7-11de-b1cc-00219b0fc4d8

1 files changed, 47 insertions, 0 deletions

diff --git a/www/mod_perl2/files/patch-r760926 b/www/mod_perl2/files/patch-r760926
new file mode 100644
index 000000000000..2c72c4eaeed4
--- /dev/null
+++ b/www/mod_perl2/files/patch-r760926
@@ -0,0 +1,47 @@
+--- lib/Apache2/Status.pm	2009/04/01 15:32:12	760925
++++ lib/Apache2/Status.pm	2009/04/01 15:39:56	760926
+@@ -29,7 +29,7 @@
+ 
+ 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 @@
+         $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_inc {
+     my ($r) = @_;
+ 
+-    my $uri = $r->uri;
++    my $uri = $r->location;
+     my @retval = (
+         '<table border="1">',
+         "<tr>",
+@@ -289,7 +289,7 @@
+     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 @@
+     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");