Move list of XS keywords to Constants.pm.

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 4159652..53525e1 100644 (file)
--- 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 (file)
--- 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;