X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.c;h=0c5b80a8e9febb1255f3a8bb04c7a1b7370e7255;hb=9a715e865e72ae0889250688904757201b677045;hp=5596768bcd339d30ebf99b2a40726284cddee734;hpb=ecb2f33519ba533cbb8a58944ee243527071ea13;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly.c b/perly.c
index 5596768..0c5b80a8 100644
--- a/perly.c
+++ b/perly.c
@@ -6,10 +6,10 @@
 #include "EXTERN.h"
 #define PERL_IN_PERLY_C
 #include "perl.h"
-#ifdef EBCDIC
+#if defined(EBCDIC) || defined(VMS)
 #undef YYDEBUG
 #endif
-#define dep() deprecate("\"do\" to call subroutines")
+#define dep() deprecate_old("\"do\" to call subroutines")
 
 /* stuff included here to make perly_c.diff apply better */
 
@@ -31,7 +31,7 @@ struct ysv {
     YYSTYPE oldyylval;
 };
 
-static void yydestruct(pTHXo_ void *ptr);
+static void yydestruct(pTHX_ void *ptr);
 
 #line 51 "perly.y"
 #if 0 /* get this from perly.h instead */
@@ -2528,12 +2528,8 @@ yyaccept:
     return retval;
 }
 
-#ifdef PERL_OBJECT
-#include "XSUB.h"
-#endif
-
 static void
-yydestruct(pTHXo_ void *ptr)
+yydestruct(pTHX_ void *ptr)
 {
     struct ysv* ysave = (struct ysv*)ptr;
     if (ysave->yyss) Safefree(ysave->yyss);