X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly_c.diff;h=aab3a86abcb4be6a9b9d554aae1edb8d33dd6107;hb=23fb6509afc63cde7930e13c21f5617c860fa149;hp=8d584193de6f28e2925d6ef6e860918c8ceba6b7;hpb=ecb2f33519ba533cbb8a58944ee243527071ea13;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly_c.diff b/perly_c.diff
index 8d58419..aab3a86 100644
--- a/perly_c.diff
+++ b/perly_c.diff
@@ -389,7 +389,7 @@
                          YYFINAL, yychar, yys);
              }
  #endif
-@@ -2513,20 +2495,54 @@
+@@ -2513,20 +2495,50 @@
          yystate = yydgoto[yym];
  #if YYDEBUG
      if (yydebug)
@@ -430,12 +430,8 @@
 +    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);