From ef83c2cf50e182b798b26d8320aa6c23f46ca4f5 Mon Sep 17 00:00:00 2001
From: "James E. Keenan" <jkeenan@cpan.org>
Date: Fri, 26 Mar 2010 22:24:15 -0400
Subject: [PATCH] Move list of XS keywords to Constants.pm.

---
 dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm           | 9 +++------
 dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm | 6 ++++++
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 4159652..53525e1 100644
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -163,12 +163,9 @@ sub process_file {
   my $END = "!End!\n\n";        # "impossible" keyword (multiple newline)
 
   # Match an XS keyword
-  $BLOCK_re = '\s*(' . join('|', qw(
-    REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE
-    OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE
-    VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE
-    INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK
-    )) . "|$END)\\s*:";
+  $BLOCK_re = '\s*(' .
+    join('|' => @ExtUtils::ParseXS::Constants::keywords) .
+    "|$END)\\s*:";
 
   our ($C_group_rex, $C_arg);
   # Group in C (no support for comments or literals)
diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
index ae07b00..2d6172c 100644
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
@@ -29,5 +29,11 @@ our $proto_re     = "[" . quotemeta('\$%&*@;[]') . "]";
 our $Overload     = 0;
 our $errors       = 0;
 our $Fallback     = '&PL_sv_undef';
+our @keywords     = qw( 
+  REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE
+  OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE
+  VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE
+  INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK
+);
 
 1;
-- 
2.7.4