Author: jorton
Date: Fri Nov 16 13:06:50 2012
New Revision: 1410327
URL: http://svn.apache.org/viewvc?rev=1410327&view=rev
Log:
CScan gets rather confused if cpp's line number markers appear in the middle
of a function declaration
Submitted by: sf
Modified:
perl/modperl/trunk/lib/ModPerl/CScan.pm
Modified: perl/modperl/trunk/lib/ModPerl/CScan.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/ModPerl/CScan.pm?rev=1410327&r1=1410326&r2=1410327&view=diff
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/CScan.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/CScan.pm Fri Nov 16 13:06:50 2012
@@ -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': $!")
