[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

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 {