[ID 20010619.011] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-per...

[perl5.git] / x2p / a2p.c

diff --git a/x2p/a2p.c b/x2p/a2p.c
index 4cf6c51..357e8e4 100644 (file)
--- a/x2p/a2p.c
+++ b/x2p/a2p.c
@@ -2089,7 +2089,7 @@ yyparse()
     register char *yys;
     extern char *getenv();
 
-    if (yys = getenv("YYDEBUG"))
+    if ((yys = getenv("YYDEBUG")))
     {
         yyn = *yys;
         if (yyn >= '0' && yyn <= '9')