Change 11518 by jhi@alpha on 2001/07/31 14:16:08
Subject: [PATCH 5.7.2] Allow for GNU-isms in h2xs
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Tue, 31 Jul 2001 05:34:38 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/utils/h2xs.PL#62 edit
Differences ...
==== //depot/perl/utils/h2xs.PL#62 (text) ====
Index: perl/utils/h2xs.PL
--- perl/utils/h2xs.PL.~1~ Tue Jul 31 08:30:05 2001
+++ perl/utils/h2xs.PL Tue Jul 31 08:30:05 2001
@@ -808,8 +808,9 @@
$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') };
End of Patch.
