From dd5f7cf27c952e8698978713394fb4e4591f13f0 Mon Sep 17 00:00:00 2001
From: Aaron Crane <arc@cpan.org>
Date: Fri, 28 Sep 2012 14:14:47 +0100
Subject: [perl #20636] Make h2xs skip #define macros with empty rhs

Otherwise the generated C code uses such macros in expressions, which causes
compilation errors because the macro is expanded to an empty token list.
---
 utils/h2xs.PL | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'utils')

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index ee4079f8ea..6b2c78f092 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -862,6 +862,10 @@ if( @path_h ){
 	    $rest =~ s!/\*.*?(\*/|\n)|//.*!!g; # Remove comments
 	    $rest =~ s/^\s+//;
 	    $rest =~ s/\s+$//;
+	    if ($rest eq '') {
+	      print("Skip empty $def\n") if $opt_d;
+	      next defines;
+	    }
 	    # Cannot do: (-1) and ((LHANDLE)3) are OK:
 	    #print("Skip non-wordy $def => $rest\n"),
 	    #  next defines if $rest =~ /[^\w\$]/;
-- 
cgit v1.2.1