[PATCH] Re: what is YYDEBUG and why does it reset errno?

[Rafael Garcia-Suarez]

On 2002.03.25 07:16 Craig A. Berry wrote:
> The culprit turns out to be the following section of code from 
> yyparse in perly.c:
> 
> #if YYDEBUG
[...]

Apparently there's some incompatibility between VMS and YYDEBUG.

I propose the following patch : (perly.c to be regenerated)


--- perly.y.orig        Wed Jan 23 20:55:44 2002
+++ perly.y     Mon Mar 25 10:46:37 2002
@@ -16,7 +16,7 @@
 #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")
--- perl.c.orig Sun Mar 24 15:54:01 2002
+++ perl.c      Mon Mar 25 11:28:22 2002
@@ -2288,8 +2288,13 @@
            PL_debug = atoi(s+1);
            for (s++; isDIGIT(*s); s++) ;
        }
+#if defined(EBCDIC) || defined(VMS)
+       if (DEBUG_p_TEST_ && ckWARN_d(WARN_DEBUGGING))
+           Perl_warner(aTHX_ packWARN(WARN_DEBUGGING),
+                   "-Dp not implemented on this platform\n");
+#endif
        PL_debug |= DEBUG_TOP_FLAG;
-#else
+#else /* !DEBUGGING */
        if (ckWARN_d(WARN_DEBUGGING))
            Perl_warner(aTHX_ packWARN(WARN_DEBUGGING),
                   "Recompile perl with -DDEBUGGING to use -D switch\n");