Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37396817
en ru br
Репозитории ALT
S:2.0.11-alt3
5.1: 2.0.4-alt1
4.1: 2.0.3-alt5
4.0: 2.0.3-alt5
www.altlinux.org/Changes

Группа :: Система/Серверы
Пакет: 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;
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin