]>
Commit | Line | Data |
---|---|---|
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; |