s/YYLEX_PARAM/YYLEXPARAM/

[p5sagit/p5-mst-13.2.git] / perly.y

diff --git a/perly.y b/perly.y
index 2c246fc..5c7e6f7 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -27,7 +27,8 @@ dep(void)
 %start prog
 
 %{
-#if !defined(OEMVS) && !defined(__OPEN_VM)
+/* I sense a Big Blue pattern here... */
+#if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
 %}
 
 %union {
@@ -38,7 +39,11 @@ dep(void)
 }
 
 %{
-#endif /* !OEMVS && !__OPEN_VM*/
+#endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
+
+#ifdef USE_PURE_BISON
+#define YYLEXPARAM (&yychar)
+#endif
 %}
 
 %token <ival> '{' ')'