This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make offsets support conditional
[perl5.git] / x2p / a2p.c
index 1098b1e..9d1d172 100644 (file)
--- a/x2p/a2p.c
+++ b/x2p/a2p.c
@@ -2179,13 +2179,17 @@ int yyparse (void);
 #define YYREJECT goto yyabort
 #define YYACCEPT goto yyaccept
 #define YYERROR goto yyerrlab
+
+#if YYDEBUG
+EXTERN_C char *getenv(const char *);
+#endif
+
 int
 yyparse(void)
 {
     register int yym, yyn, yystate;
 #if YYDEBUG
     register char *yys;
-    extern char *getenv();
 
     if ((yys = getenv("YYDEBUG")))
     {