In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9ce5bf4c39e28441410672f39b5ee1c4569967f8?hp=6d31468305788870c92226c07d8edd65deb96ea5>
- Log ----------------------------------------------------------------- commit 9ce5bf4c39e28441410672f39b5ee1c4569967f8 Author: Hugo van der Sanden <[email protected]> Date: Fri Oct 28 13:27:23 2016 +0100 [perl #130001] h2xs: avoid infinite loop for enums 'typedef enum x { ... } x' causes h2xs to enter a substitution loop while trying to write the typemap file. ----------------------------------------------------------------------- Summary of changes: 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) { -- Perl5 Master Repository
