[Bast-commits] r4946 - Devel-Declare/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-20 12:29:34 +0100 (Mon, 20 Oct 2008)
New Revision: 4946

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
On 5.9.5+ PL_parser is always available, although not always a define, but a symbol.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-10-20 11:00:19 UTC (rev 4945)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-10-20 11:29:34 UTC (rev 4946)
@@ -25,7 +25,7 @@
 
 #define DD_AM_LEXING_CHECK (PL_lex_state == LEX_NORMAL || PL_lex_state == LEX_INTERPNORMAL)
 
-#ifdef PL_parser
+#if defined(PL_parser) || defined(PERL_5_9_PLUS)
 #define DD_HAVE_PARSER PL_parser
 #define DD_HAVE_LEX_STUFF (PL_parser && PL_lex_stuff)
 #define DD_AM_LEXING (PL_parser && DD_AM_LEXING_CHECK)