diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 21:36:24 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 21:36:24 +0000 |
| commit | 6542b28ec99097164b5449197716fcaaf5215e2c (patch) | |
| tree | 96f96b39f004daa233c9b8d9f6784d6525ff72f7 /utils | |
| parent | 9f1b1f2d9ab55954ee07a14c4ab04bd3dd1f99d5 (diff) | |
| download | perl-6542b28ec99097164b5449197716fcaaf5215e2c.tar.gz | |
avoid infinite loop in h2xs (from Hugo van der Sanden)
p4raw-id: //depot/perl@5713
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 333e891060..50b15d130c 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -586,7 +586,7 @@ if( ! $opt_X ){ # use XS, unless it was disabled } } { local $" = '|'; - $typedef_rex = qr(\b(?<!struct )(?:@good_td)\b); + $typedef_rex = qr(\b(?<!struct )(?:@good_td)\b) if @good_td; } %known_fnames = map @$_[1,3], @$fdecls_parsed; # [1,3] is NAME, FULLTEXT if ($fmask) { |