diff options
| author | Jason Vas Dias <unknown> | 2006-05-11 04:00:42 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-18 12:52:34 +0000 |
| commit | 121ec5ba7a19a219149ea3c8c8a845624b2bf8ea (patch) | |
| tree | 6bc135b04226570bd0ce689d9af12ffc60619215 /utils | |
| parent | b4e8c6dd0853d6a1de629186530fac6405389283 (diff) | |
| download | perl-121ec5ba7a19a219149ea3c8c8a845624b2bf8ea.tar.gz | |
[perl #39130] h2ph generates incorrect code for '#if defined A || defined B'
From: Jason Vas Dias (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-39130-133411.1.91055283125046@perl.org>
p4raw-id: //depot/perl@28225
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 5fe2e9f458..2ea015221e 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -514,7 +514,7 @@ sub expr { } } else { if ($inif && $new !~ /defined\s*\($/) { - $new .= '(defined(&' . $id . ') ? &' . $id . ' : 0)'; + $new .= '(defined(&' . $id . ') ? &' . $id . ' : undef)'; } elsif (/^\[/) { $new .= " \$$id"; } else { |