RPM Community Forums

Mailing List Message of <rpm-cvs>

[CVS] RPM: rpm/scripts/ perl.prov

From: Jeff Johnson <jbj@rpm5.org>
Date: Fri 31 Aug 2007 - 14:56:57 CEST
Message-Id: <20070831125657.5170F34845B@rpm5.org>
  RPM Package Manager, CVS Repository
  http://rpm5.org/cvs/
  ____________________________________________________________________________

  Server: rpm5.org                         Name:   Jeff Johnson
  Root:   /v/rpm/cvs                       Email:  jbj@rpm5.org
  Module: rpm                              Date:   31-Aug-2007 14:56:57
  Branch: HEAD                             Handle: 2007083113565700

  Modified files:
    rpm/scripts             perl.prov

  Log:
    handle multiline split package defs better.

  Summary:
    Revision    Changes     Path
    1.12        +8  -4      rpm/scripts/perl.prov
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: rpm/scripts/perl.prov
  ============================================================================
  $ cvs diff -u -r1.11 -r1.12 perl.prov
  --- rpm/scripts/perl.prov	21 Jul 2007 12:00:35 -0000	1.11
  +++ rpm/scripts/perl.prov	31 Aug 2007 12:56:57 -0000	1.12
  @@ -130,7 +130,11 @@
         if ($package eq 'main') {
           undef $package;
         } else {
  -        $require{$package}=undef;
  +        # If $package already exists in the $require hash, it means
  +        # the package definition is broken up over multiple blocks.
  +        # In that case, don't stomp a previous $VERSION we might have
  +        # found.  (See BZ#214496.)
  +        $require{$package}=undef unless (exists $require{$package});
         }
       }
   
  @@ -140,9 +144,9 @@
   
       # here are examples of VERSION lines from the perl distribution
   
  -    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
  -    #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.11 $, 10;
  -    #CGI/Apache.pm:$VERSION = (qw$Revision: 1.11 $)[1];
  +    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/);
  +    #ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.12 $, 10;
  +    #CGI/Apache.pm:$VERSION = (qw$Revision: 1.12 $)[1];
       #DynaLoader.pm:$VERSION = $VERSION = "1.03";     # avoid typo warning
       #General.pm:$Config::General::VERSION = 2.33;
       # 
  @@ .
Received on Fri Aug 31 14:56:57 2007
Driven by Jeff Johnson and the RPM project team.
Hosted by OpenPKG and Ralf S. Engelschall.
Powered by FreeBSD and OpenPKG.