#ifdef EBCDIC
#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 */
ysave->oldyylval = yylval;
#if YYDEBUG
+ {
+ register int saved_errno = errno;
+#ifdef VMS
+ register int saved_vaxc_errno = vaxc$errno;
+#else
+ register int saved_vaxc_errno = 0;
+#endif
if ((yys = getenv("YYDEBUG")))
{
yyn = *yys;
if (yyn >= '0' && yyn <= '9')
yydebug = yyn - '0';
}
- else SETERRNO(0,SS$_NORMAL);
+ else SETERRNO(saved_errno,saved_vaxc_errno);
+ }
#endif
yynerrs = 0;