From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 13 Mar 2000 21:36:24 +0000 (+0000)
Subject: avoid infinite loop in h2xs (from Hugo van der Sanden)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6542b28ec99097164b5449197716fcaaf5215e2c;p=p5sagit%2Fp5-mst-13.2.git

avoid infinite loop in h2xs (from Hugo van der Sanden)

p4raw-id: //depot/perl@5713
---

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 333e891..50b15d1 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) {