From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 31 Jul 2001 05:34:38 +0000 (-0400)
Subject: Allow for GNU-isms in h2xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ce74a3dc4c51ee3844c96247cb8b7fee8da71ac;p=p5sagit%2Fp5-mst-13.2.git

Allow for GNU-isms in h2xs
Message-ID: <20010731053438.A1754@math.ohio-state.edu>

p4raw-id: //depot/perl@11518
---

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index c27d24b..5c3fcff 100644
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -808,8 +808,9 @@ if( ! $opt_X ){  # use XS, unless it was disabled
 	$filter = $';
       }
       warn "Scanning $filename for functions...\n";
+      my @styles = $Config{gccversion} ? qw(C++ C9X GNU) : qw(C++ C9X);
       $c = new C::Scan 'filename' => $filename, 'filename_filter' => $filter,
-	'add_cppflags' => $addflags, 'c_styles' => [qw(C++ C9X)];
+	'add_cppflags' => $addflags, 'c_styles' => \@styles;
       $c->set('includeDirs' => ["$Config::Config{archlib}/CORE"]);
 
       push @$fdecls_parsed, @{ $c->get('parsed_fdecls') };