28 lines
1.1 KiB
Diff
28 lines
1.1 KiB
Diff
From 2fb38b336c8a449463c0cec02a256d38a7e5e4b6 Mon Sep 17 00:00:00 2001
|
|
From: Stefan Fritsch <sf@sfritsch.de>
|
|
Date: Tue, 24 Apr 2012 22:31:18 +0200
|
|
Subject: [PATCH 05/28] workaround CScan choking on glibc's headers
|
|
|
|
CScan gets rather confused if cpp's line number markers appear in the middle
|
|
of a function declaration
|
|
---
|
|
lib/ModPerl/CScan.pm | 2 +-
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
|
diff --git a/lib/ModPerl/CScan.pm b/lib/ModPerl/CScan.pm
|
|
index 6789af3..a7314c9 100644
|
|
--- a/lib/ModPerl/CScan.pm
|
|
+++ b/lib/ModPerl/CScan.pm
|
|
@@ -943,7 +943,7 @@ sub new {
|
|
my ($sym) = gensym;
|
|
my $cmd = WIN32 ?
|
|
"$Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $filename |" :
|
|
- "echo '\#include \"$filename\"' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} |";
|
|
+ "echo '\#include \"$filename\"' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} | grep -v '^#' |";
|
|
#my $cmd = "echo '\#include <$filename>' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} |";
|
|
|
|
(open($sym, $cmd) or die "Cannot open pipe from `$cmd': $!")
|
|
--
|
|
1.7.11.4
|
|
|