From: David Cannings <lists@edeca.net>
Date: Mon, 3 May 2004 13:44:33 +0000 (+0100)
Subject: Problem with h2xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5db8a8c21bcc6e67c574b01a4256f79c5e4aab89;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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')});