diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2000-01-19 10:05:11 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-21 01:03:34 +0000 |
| commit | daf405146fecd73a69819f299d586c6f14098385 (patch) | |
| tree | e2ca802be230865a76d602864fda392d31f3a204 /utils/h2xs.PL | |
| parent | c42e3e15546c0e144cc084bd22468881eb6aa563 (diff) | |
| download | perl-daf405146fecd73a69819f299d586c6f14098385.tar.gz | |
h2xs goof and a depessimization
Message-ID: <20000119150511.A22859@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@4825
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index ca55c0ace2..cbeffb4c5c 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 |