perlform.pod

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

diff --git a/perly.y b/perly.y
index f9c5f74..e016cf4 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -26,6 +26,10 @@ dep(void)
 
 %start prog
 
+%{
+#ifndef OEMVS
+%}
+
 %union {
     I32        ival;
     char *pval;
@@ -33,6 +37,10 @@ dep(void)
     GV *gvval;
 }
 
+%{
+#endif /* OEMVS */
+%}
+
 %token <ival> '{' ')'
 
 %token <opval> WORD METHOD FUNCMETH THING PMFUNC PRIVATEREF