This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[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

index 5fe2e9f..2ea0152 100644 (file)
@@ -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 {