From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 27 Jun 2003 08:40:45 +0000 (+0000)
Subject: atoi() doesn't cut the mustard if the PERL_HASH_SEED
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf1e01904b621fce6a1d1e1bcf187334cf1b1e04;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/perl.c b/perl.c
index badb216..d0bf931 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 */