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 (file)
--- 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