rpm-perlprov-perl5.6.patch

   1 diff -urN rpm-4.0.2/scripts/perl.prov rpm-4.0.2-grabba/scripts/perl.prov
   2 --- rpm-4.0.2/scripts/perl.prov Wed Mar  6 16:30:05 2002
   3 +++ rpm-4.0.2-grabba/scripts/perl.prov  Wed Mar  6 16:31:52 2002
   4 @@ -47,7 +47,7 @@
   5
   6  if ("@ARGV") {
   7    foreach (@ARGV) {
   8 -     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) {
   9 +     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) {
  10        process_file($_) if -f "$_";
  11      }
  12    }
  13 @@ -57,7 +57,7 @@
  14    # contents of the file.
  15
  16    foreach (<>) {
  17 -     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html)$)=) {
  18 +     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) {
  19        process_file($_) if -f "$_";
  20      }
  21    }
  22 @@ -116,7 +116,7 @@
  23      # package name so we report all namespaces as if they were
  24      # provided packages (really ugly).
  25
  26 -    if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/) {
  27 +    if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/ && $1 ne 'main' && !$require{$1}) {
  28        $package=$1;
  29        undef $version;
  30        $require{$package}=undef;
  31 @@ -132,10 +132,15 @@
  32      #ExtUtils/Install.pm:$VERSION = substr q$Revision$, 10;
  33      #CGI/Apache.pm:$VERSION = (qw$Revision$)[1];
  34      #DynaLoader.pm:$VERSION = $VERSION = "1.03";     # avoid typo warning
  35 +    #Cwd.pm:our $VERSION = '2.04';
  36 +
  37 +    # here is example of VERSION line from RPC::PlClient module
  38 +
  39 +    # RPC/PlClient.pm:$RPC::PlClient::VERSION = '0.2016';
  40
  41      if (
  42         ($package) &&
  43 -       (m/^\s*\$VERSION\s*=\s+/)
  44 +       (m/^\s*(our)?\s*\$(${package}::)?VERSION\s*=/)
  45         ) {
  46
  47        # first see if the version string contains the string