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

p4raw-id: //depot/perl@20008

diff --git a/perl.c b/perl.c
index 6000f1c..c7a8282 100644 (file)
--- 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);
     }