Репозитории ALT
S: | 2.0.11-alt3 |
5.1: | 2.0.4-alt1 |
4.1: | 2.0.3-alt5 |
4.0: | 2.0.3-alt5 |
Группа :: Система/Серверы
Пакет: apache2-mod_perl
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: mod_perl-2.0.2-multilib.patch
Скачать
Скачать
Generate the XS typemap files in sorted order; ensures that the
devel package contents do not differe across multilib platforms.
--- mod_perl-2.0.2/lib/ModPerl/TypeMap.pm.multilib
+++ mod_perl-2.0.2/lib/ModPerl/TypeMap.pm
@@ -440,12 +440,12 @@
$code .= qq{\#include "$_"\n}
}
- for my $t (@{ $self->{struct} }) {
+ for my $t (sort {$a->[1] cmp $b->[1]} @{ $self->{struct} }) {
next if $seen{ $t->[1] }++;
$code .= "typedef $t->[0] * $t->[1];\n";
}
- for my $t (@{ $self->{typedef} }) {
+ for my $t (sort {$a->[1] cmp $b->[1]} @{ $self->{typedef} }) {
next if $seen{ $t->[1] }++;
$code .= "typedef $t->[0] $t->[1];\n";
}
@@ -468,7 +468,9 @@
my %seen;
my $code = "";
- while (my ($ctype, $ptype) = each %$map) {
+ for my $ctype (sort keys %$map) {
+ my $ptype = $map->{$ctype};
+
next if $self->special($ptype);
next if $ctype =~ /\s/;
my $class = $ptype;