diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-05 09:10:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-05 09:10:46 +0000 |
| commit | 73613073f377f5e58500b150baaf6de70578ac2b (patch) | |
| tree | a1694c21a1e41dd72e68129e4362bce458176e9c /perl.c | |
| parent | bd833d03cdf984f3a5a7ad47c7e7b2072b5e5c76 (diff) | |
| download | perl-73613073f377f5e58500b150baaf6de70578ac2b.tar.gz | |
IIRC gcc would complain about if (s = ...).
p4raw-id: //depot/perl@20008
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |