Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37897075
en ru br
ALT Linux repos
S:2.0.11-alt3
5.0: 2.0.4-alt1
4.1: 2.0.3-alt5
4.0: 2.0.3-alt5

Group :: System/Servers
RPM: apache2-mod_perl

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: mod_perl-2.0.2-multilib.patch
Download


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;
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin