/[smeserver]/rpms/mod_perl/sme9/mod_perl-2.0.4-CVE-2009-0796.patch
ViewVC logotype

Contents of /rpms/mod_perl/sme9/mod_perl-2.0.4-CVE-2009-0796.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Tue Feb 12 18:32:29 2013 UTC (11 years, 8 months ago) by slords
Branch: MAIN
CVS Tags: mod_perl-2_0_4-11_1_el6_sme, mod_perl-2_0_4-11_el6_sme, mod_perl-2_0_4-10_el6_sme, mod_perl-2_0_4-11_el6_5, mod_perl-2_0_4-12_1_el6_sme, HEAD
Branch point for: upstream
Initial import

1 --- mod_perl-2.0.4/lib/Apache2/Status.pm.cve0796
2 +++ mod_perl-2.0.4/lib/Apache2/Status.pm
3 @@ -29,7 +29,7 @@ use File::Spec ();
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 @@ sub handler {
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 @@ sub status_section_config {
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 @@ sub status_rgysubs {
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 @@ sub as_HTML {
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");

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed