File 0004-Define-enum-values-in-sorted-order.patch of Package perl-Wx

Overview Repositories Revisions Requests Users Attributes Meta

File 0004-Define-enum-values-in-sorted-order.patch of Package perl-Wx (Revision a96c757f1f0bdfc57c0d4c43b8d8d6c3)

Currently displaying revision a96c757f1f0bdfc57c0d4c43b8d8d6c3 , Show latest

From d16adc83898678e33ce094c71440d7204530a628 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20Br=C3=BCns?= <stefan.bruens@rwth-aachen.de>
Date: Fri, 15 Jun 2018 01:39:44 +0200
Subject: [PATCH 4/4] Define enum values in sorted order
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Stefan Brüns <stefan.bruens@rwth-aachen.de>
---
 build/Wx/XSP/Enum.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/build/Wx/XSP/Enum.pm b/build/Wx/XSP/Enum.pm
index efaf9ba..9f55b9c 100644
--- a/build/Wx/XSP/Enum.pm
+++ b/build/Wx/XSP/Enum.pm
@@ -45,7 +45,8 @@ sub post_process {
     ( my $name = File::Basename::basename( $parser->current_file ) ) =~ tr/./_/;
     my $file = "xspp/const_$name.h";
     my @defines;
-    while( my( $k, $v ) = each %constants ) {
+    foreach my $k (sort keys %constants) {
+        my $v = $constants{$k};
         if( $v->[0] ) {
             push @defines, "#ifdef $v->[0]",
                            "    r( $k );",
-- 
2.17.1

Places

File 0004-Define-enum-values-in-sorted-order.patch of Package perl-Wx (Revision a96c757f1f0bdfc57c0d4c43b8d8d6c3)

Places