From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 2 May 2006 01:55:53 +0000 (+0000)
Subject: Fix for RT #25366: h2xs 1.23 from "Aaron Kaplan".
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e78c7d95b1afa16d50454952a650d0a02b7a4113;p=p5sagit%2Fp5-mst-13.2.git

Fix for RT #25366: h2xs 1.23 from "Aaron Kaplan".

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

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 7a21752..d62e96e 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -904,6 +904,7 @@ if( @path_h ){
             next if $opt_e && $enum_name =~ /$opt_e/;
             my $val = 0;
             for my $item (split /,/, $enum_body) {
+                next if $item =~ /\A\s*\Z/;
                 my ($key, $declared_val) = $item =~ /(\w+)\s*(?:=\s*(.*))?/;
                 $val = defined($declared_val) && length($declared_val) ? $declared_val : 1 + $val;
                 $seen_define{$key} = $val;