From: Jason Vas Dias <unknown>
Date: Thu, 11 May 2006 11:00:42 +0000 (-0700)
Subject: [perl #39130] h2ph generates incorrect code for '#if defined A || defined B'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=121ec5ba7a19a219149ea3c8c8a845624b2bf8ea;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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 {