OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /v/openpkg/cvs                   Email:  [email protected]
  Module: openpkg-src                      Date:   19-May-2009 23:15:09
  Branch: HEAD                             Handle: 2009051922150900

  Modified files:
    openpkg-src/apache-perl apache-perl.patch apache-perl.spec

  Log:
    apply CVE-2009-0796 patch

  Summary:
    Revision    Changes     Path
    1.3         +50 -2      openpkg-src/apache-perl/apache-perl.patch
    1.9         +1  -1      openpkg-src/apache-perl/apache-perl.spec
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-src/apache-perl/apache-perl.patch
  ============================================================================
  $ cvs diff -u -r1.2 -r1.3 apache-perl.patch
  --- openpkg-src/apache-perl/apache-perl.patch 7 Jun 2008 17:04:47 -0000       
1.2
  +++ openpkg-src/apache-perl/apache-perl.patch 19 May 2009 21:15:09 -0000      
1.3
  @@ -1,6 +1,54 @@
  +Index: lib/Apache2/Status.pm
  +--- lib/Apache2/Status.pm.orig       2007-12-31 08:50:48 +0100
  ++++ lib/Apache2/Status.pm    2009-05-19 23:12:43 +0200
  +@@ -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");
   Index: lib/ModPerl/BuildMM.pm
   --- lib/ModPerl/BuildMM.pm.orig      2007-12-31 08:50:47 +0100
  -+++ lib/ModPerl/BuildMM.pm   2008-06-07 19:02:20 +0200
  ++++ lib/ModPerl/BuildMM.pm   2009-05-19 23:12:43 +0200
   @@ -359,7 +359,7 @@
    
        $apr_config ||= $build->get_apr_config();
  @@ -12,7 +60,7 @@
    
   Index: src/modules/perl/modperl_apache_compat.h
   --- src/modules/perl/modperl_apache_compat.h.orig    2007-12-31 08:23:36 
+0100
  -+++ src/modules/perl/modperl_apache_compat.h 2008-06-07 19:02:20 +0200
  ++++ src/modules/perl/modperl_apache_compat.h 2009-05-19 23:12:43 +0200
   @@ -22,6 +22,7 @@
    #if !APR_HAS_THREADS
    typedef unsigned long apr_os_thread_t;
  @@ .
  patch -p0 <<'@@ .'
  Index: openpkg-src/apache-perl/apache-perl.spec
  ============================================================================
  $ cvs diff -u -r1.8 -r1.9 apache-perl.spec
  --- openpkg-src/apache-perl/apache-perl.spec  18 Apr 2009 13:08:32 -0000      
1.8
  +++ openpkg-src/apache-perl/apache-perl.spec  19 May 2009 21:15:09 -0000      
1.9
  @@ -32,7 +32,7 @@
   Group:        Web
   License:      Artistic/GPL
   Version:      2.0.4
  -Release:      20080607
  +Release:      20090519
   
   #   list of sources
   Source0:      http://perl.apache.org/dist/mod_perl-%{version}.tar.gz
  @@ .
______________________________________________________________________
OpenPKG                                             http://openpkg.org
CVS Repository Commit List                     [email protected]

Reply via email to