Add a test case for waitpid(): from Rocco Caputo.

[perl5.git] / perly_c.diff

diff --git a/perly_c.diff b/perly_c.diff
index 8d58419..aab3a86 100644 (file)
--- 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);