From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 5 Jul 2003 09:10:46 +0000 (+0000)
Subject: IIRC gcc would complain about if (s = ...).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73613073f377f5e58500b150baaf6de70578ac2b;p=p5sagit%2Fp5-mst-13.2.git

IIRC gcc would complain about if (s = ...).

p4raw-id: //depot/perl@20008
---

diff --git a/perl.c b/perl.c
index 6000f1c..c7a8282 100644
--- a/perl.c
+++ b/perl.c
@@ -926,7 +926,7 @@ setuid perl scripts securely.\n");
 #endif /* RANDBITS < (UVSIZE * 8) */
        }
 #endif /* USE_HASH_SEED_EXPLICIT */
-       if (s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG"))
+       if ((s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG")))
 	   PerlIO_printf(Perl_debug_log, "HASH_SEED = %"UVuf"\n",
 			 PL_hash_seed);
     }