From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 19 Jan 2000 15:05:11 +0000 (-0500)
Subject: h2xs goof and a depessimization
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=daf405146fecd73a69819f299d586c6f14098385;p=p5sagit%2Fp5-mst-13.2.git

h2xs goof and a depessimization

	Message-ID: <20000119150511.A22859@monk.mps.ohio-state.edu>

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

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index ca55c0a..cbeffb4 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -956,6 +956,7 @@ END
 static double
 constant(char *name, int len, int arg)
 {
+    errno = 0;
     if (strEQ(name + $offarg, "$list->[0]")) {	/* $pref removed */
 #ifdef $pref$list->[0]
 	return $protect$pref$list->[0];
@@ -994,6 +995,9 @@ END
 static double
 constant$npref(char *name, int len, int arg)
 {
+END
+
+  print $fh <<"END" if $npref eq '';
     errno = 0;
 END