perl5.002beta3
[perl.git] / utils / h2ph.PL
index 4e0dbd1..720191e 100644 (file)
@@ -237,7 +237,7 @@ sub expr {
                }
            }
            else {
-               if ($inif && $new !~ /defined\($/) {
+               if ($inif && $new !~ /defined\s*\($/) {
                    $new .= '(defined(&' . $id . ') ? &' . $id . ' : 0)';
                } 
                elsif (/^\[/) {