projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: b4e8c6d)
[perl #39130] h2ph generates incorrect code for '#if defined A || defined B'
authorJason Vas Dias <unknown>
Thu, 11 May 2006 11:00:42 +0000 (04:00 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 May 2006 12:52:34 +0000 (12:52 +0000)
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

utils/h2ph.PL patch | blob | history

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 5fe2e9f..2ea0152 100644 (file)
--- 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 {
Domain: System / Base;