Sort @sstacklst correctly.

[openssl.git] / util / mkstack.pl

diff --git a/util/mkstack.pl b/util/mkstack.pl
index f708610a7888d1a7fe4d9eeaf2426f462f785b87..a86d91f67ef327180338afc214fa3d639eb7d217 100755 (executable)
--- a/util/mkstack.pl
+++ b/util/mkstack.pl
@@ -97,7 +97,7 @@ while(<IN>) {
 EOF
        }
 
-       foreach $type_thing (sort @sstacklst) {
+    foreach $type_thing (sort { $a->[0] cmp $b->[0]} @sstacklst) {
            my $t1 = $type_thing->[0];
            my $t2 = $type_thing->[1];
            $new_stackfile .= <<EOF;