Change 20008 by [EMAIL PROTECTED] on 2003/07/05 09:10:46

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

Affected files ...

... //depot/perl/perl.c#503 edit

Differences ...

==== //depot/perl/perl.c#503 (text) ====
Index: perl/perl.c
--- perl/perl.c#502~20007~      Sat Jul  5 02:09:44 2003
+++ perl/perl.c Sat Jul  5 02:10:46 2003
@@ -926,7 +926,7 @@
 #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);
     }
End of Patch.

Reply via email to