Problem with h2xs

Message-Id: <200405031344.33723.lists@edeca.net>
(Second patch only)

p4raw-id: //depot/perl@22782

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 5d27e67..2e8e23e 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -981,6 +981,8 @@ if( ! $opt_X ){  # use XS, unless it was disabled
        'add_cppflags' => $addflags, 'c_styles' => \@styles;
       $c->set('includeDirs' => ["$Config::Config{archlib}/CORE", $cwd]);
 
+      $c->get('keywords')->{'__restrict'} = 1;
+
       push @$fdecls_parsed, @{ $c->get('parsed_fdecls') };
       push(@$fdecls, @{$c->get('fdecls')});