diff options
author | Hugo van der Sanden <hv@crypt.org> | 2016-10-28 13:27:23 +0100 |
---|---|---|
committer | Hugo van der Sanden <hv@crypt.org> | 2016-11-02 14:46:30 +0000 |
commit | 9ce5bf4c39e28441410672f39b5ee1c4569967f8 (patch) | |
tree | d6c19081eef2277c4ea2e481542cf66201e6aab2 /utils | |
parent | 6d31468305788870c92226c07d8edd65deb96ea5 (diff) | |
download | perl-9ce5bf4c39e28441410672f39b5ee1c4569967f8.tar.gz |
[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.
Diffstat (limited to 'utils')
-rw-r--r-- | utils/h2xs.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 8fda87b0a7..f9063cbc4e 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) { |