Change 19865 by [EMAIL PROTECTED] on 2003/06/27 08:40:45
atoi() doesn't cut the mustard if the PERL_HASH_SEED
is larger than INT_MAX (atoi() returns -1 in that case).
Affected files ...
... //depot/perl/perl.c#493 edit
Differences ...
==== //depot/perl/perl.c#493 (text) ====
Index: perl/perl.c
--- perl/perl.c#492~19864~ Fri Jun 27 01:18:47 2003
+++ perl/perl.c Fri Jun 27 01:40:45 2003
@@ -284,7 +284,7 @@
if (s)
while (isSPACE(*s)) s++;
if (s && isDIGIT(*s))
- PL_hash_seed = (UV)atoi(s);
+ PL_hash_seed = (UV)Atoul(s);
#ifndef USE_HASH_SEED_EXPLICIT
else {
/* Compute a random seed */
End of Patch.
