From: Noah <sitz@onastick.net>
Date: Wed, 19 Jan 2005 12:33:52 +0000 (-0500)
Subject: Re: [perl #32498] h2xs generates incorrect code for Makefile.PL for enums
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e0a3558675c46274592389adb574bfc2a161d7a;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #32498] h2xs generates incorrect code for Makefile.PL for enums
Message-ID: <20050119173352.GA15592@radu.onastick.net>

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

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index b973705..bb4f537 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -903,7 +903,7 @@ if( @path_h ){
             for my $item (split /,/, $enum_body) {
                 my ($key, $declared_val) = $item =~ /(\w+)\s*(?:=\s*(.*))?/;
                 $val = defined($declared_val) && length($declared_val) ? $declared_val : 1 + $val;
-                $seen_define{$key} = $declared_val;
+                $seen_define{$key} = $val;
                 $const_names{$key}++;
             }
         } # while (...)