From bf1e01904b621fce6a1d1e1bcf187334cf1b1e04 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 27 Jun 2003 08:40:45 +0000 Subject: atoi() doesn't cut the mustard if the PERL_HASH_SEED is larger than INT_MAX (atoi() returns -1 in that case). p4raw-id: //depot/perl@19865 --- perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl.c b/perl.c index badb216fec..d0bf93130d 100644 --- a/perl.c +++ b/perl.c @@ -284,7 +284,7 @@ perl_construct(pTHXx) 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 */ -- cgit v1.2.1