rpm-perl-macros.patch

   1 --- rpm-4.5/scripts/perl.req    2008-07-09 12:38:31.000000000 +0300
   2 +++ rpm-4.4.9/scripts/perl.req.in       2008-08-12 23:08:33.518675858 +0300
   3 @@ -277,20 +277,20 @@
   4           # $V-style
   5           if ($ver =~ m/5\.([0-5])(\.([0-9]+))?$/) {
   6             if (defined $3) {
   7 -             print "perl >= 0:5.00$1_$3\n";
   8 +             print "perl-base >= 0:5.00$1_$3\n";
   9             } else {
  10 -             print "perl >= 0:5.00$1\n";
  11 +             print "perl-base >= 0:5.00$1\n";
  12             }
  13           } else {
  14 -           print "perl >= 1:$ver\n";
  15 +           print "perl-base >= 1:$ver\n";
  16           }
  17         } else {
  18           # $]-style
  19           if ($ver =~ m/5\.(00[0-5])_?([0-9]+)?$/) {
  20             if (defined $2) {
  21 -             print "perl >= 0:5.$1_$2\n";
  22 +             print "perl-base >= 0:5.$1_$2\n";
  23             } else {
  24 -             print "perl >= 0:5.$1\n";
  25 +             print "perl-base >= 0:5.$1\n";
  26             }
  27           } else {
  28             # expand to M.NNN_nnn form
  29 @@ -299,7 +299,7 @@
  30             $ver =~ s/^([0-9]\.[0-9]{3})_?([0-9]{3})0*$/$1_$2/;
  31             # match trimming leading 0s
  32             $ver =~ m/^([0-9])\.0*([1-9][0-9]*|0)_0*([1-9][0-9]*|0)$/;
  33 -           print "perl >= 1:$1.$2.$3\n";
  34 +           print "perl-base >= 1:$1.$2.$3\n";
  35           }
  36         }
  37         next;
  38 @@ -326,6 +326,10 @@
  39
  40        ($module =~ m/\.(ph|pl|t)$/) && next;
  41
  42 +      # skip all modules for platforms other than linux.
  43 +
  44 +      ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next;
  45 +
  46        # if the module name starts in a dot it is not a module name.
  47
  48        ($module =~ m/^\./) && next;