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
5 if ($ver =~ m/5\.([0-5])(\.([0-9]+))?$/) {
7 - print "perl >= 0:5.00$1_$3\n";
8 + print "perl-base >= 0:5.00$1_$3\n";
10 - print "perl >= 0:5.00$1\n";
11 + print "perl-base >= 0:5.00$1\n";
14 - print "perl >= 1:$ver\n";
15 + print "perl-base >= 1:$ver\n";
19 if ($ver =~ m/5\.(00[0-5])_?([0-9]+)?$/) {
21 - print "perl >= 0:5.$1_$2\n";
22 + print "perl-base >= 0:5.$1_$2\n";
24 - print "perl >= 0:5.$1\n";
25 + print "perl-base >= 0:5.$1\n";
28 # expand to M.NNN_nnn form
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";
40 ($module =~ m/\.(ph|pl|t)$/) && next;
42 + # skip all modules for platforms other than linux.
44 + ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next;
46 # if the module name starts in a dot it is not a module name.
48 ($module =~ m/^\./) && next;