33 lines
1.0 KiB
Diff
33 lines
1.0 KiB
Diff
|
From 9ce5bf4c39e28441410672f39b5ee1c4569967f8 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Hugo van der Sanden <hv@crypt.org>
|
||
|
|
Date: Fri, 28 Oct 2016 13:27:23 +0100
|
||
|
|
Subject: [PATCH] [perl #130001] h2xs: avoid infinite loop for enums
|
||
|
|
MIME-Version: 1.0
|
||
|
|
Content-Type: text/plain; charset=UTF-8
|
||
|
|
Content-Transfer-Encoding: 8bit
|
||
|
|
|
||
|
|
'typedef enum x { ... } x' causes h2xs to enter a substitution loop while
|
||
|
|
trying to write the typemap file.
|
||
|
|
|
||
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||
|
|
---
|
||
|
|
utils/h2xs.PL | 2 +-
|
||
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/utils/h2xs.PL b/utils/h2xs.PL
|
||
|
|
index 8fda87b..f9063cb 100644
|
||
|
|
--- a/utils/h2xs.PL
|
||
|
|
+++ b/utils/h2xs.PL
|
||
|
|
@@ -1034,7 +1034,7 @@ if( ! $opt_X ){ # use XS, unless it was disabled
|
||
|
|
}
|
||
|
|
}
|
||
|
|
{ local $" = '|';
|
||
|
|
- $typedef_rex = qr(\b(?<!struct )(?:@good_td)\b) if @good_td;
|
||
|
|
+ $typedef_rex = qr(\b(?<!struct )(?<!enum )(?:@good_td)\b) if @good_td;
|
||
|
|
}
|
||
|
|
%known_fnames = map @$_[1,3], @$fdecls_parsed; # [1,3] is NAME, FULLTEXT
|
||
|
|
if ($fmask) {
|
||
|
|
--
|
||
|
|
2.7.4
|
||
|
|
|