diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-07-31 01:34:38 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-31 14:16:08 +0000 |
| commit | 5ce74a3dc4c51ee3844c96247cb8b7fee8da71ac (patch) | |
| tree | 7597a5fe35fc11ca3bd07abcdf5e4900a1db5772 /utils/h2xs.PL | |
| parent | 6a21b602731a3b9c2b1a55a63a48f5f4ab6dc73d (diff) | |
| download | perl-5ce74a3dc4c51ee3844c96247cb8b7fee8da71ac.tar.gz | |
Allow for GNU-isms in h2xs
Message-ID: <20010731053438.A1754@math.ohio-state.edu>
p4raw-id: //depot/perl@11518
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index c27d24bcd2..5c3fcff51e 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') }; |