]>
Commit | Line | Data |
---|---|---|
e3f6f4ef ER |
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"; | |
fa78cfd4 | 8 | + print "perl-base >= 0:5.00$1_$3\n"; |
e3f6f4ef ER |
9 | } else { |
10 | - print "perl >= 0:5.00$1\n"; | |
fa78cfd4 | 11 | + print "perl-base >= 0:5.00$1\n"; |
e3f6f4ef ER |
12 | } |
13 | } else { | |
14 | - print "perl >= 1:$ver\n"; | |
fa78cfd4 | 15 | + print "perl-base >= 1:$ver\n"; |
e3f6f4ef ER |
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"; | |
fa78cfd4 | 22 | + print "perl-base >= 0:5.$1_$2\n"; |
e3f6f4ef ER |
23 | } else { |
24 | - print "perl >= 0:5.$1\n"; | |
fa78cfd4 | 25 | + print "perl-base >= 0:5.$1\n"; |
e3f6f4ef ER |
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"; | |
fa78cfd4 | 34 | + print "perl-base >= 1:$1.$2.$3\n"; |
e3f6f4ef ER |
35 | } |
36 | } | |
37 | next; | |
38 | @@ -326,6 +326,10 @@ | |
2fa5aec3 | 39 | |
e3f6f4ef | 40 | ($module =~ m/\.(ph|pl|t)$/) && next; |
3ce8984f | 41 | |
4a19987c | 42 | + # skip all modules for platforms other than linux. |
92b19143 | 43 | + |
44 | + ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next; | |
45 | + | |
e3f6f4ef | 46 | # if the module name starts in a dot it is not a module name. |
cfd811fa | 47 | |
e3f6f4ef | 48 | ($module =~ m/^\./) && next; |