s += 2;
d = s;
s = scan_word(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len);
- tmp = keyword(PL_tokenbuf, len);
+ if (!(tmp = keyword(PL_tokenbuf, len)))
+ Perl_croak(aTHX_ "CORE::%s is not a keyword", PL_tokenbuf);
if (tmp < 0)
tmp = -tmp;
goto reserved_word;
UV uv;
errno = 0;
if (*PL_tokenbuf == '-')
- iv = Atol(PL_tokenbuf);
+ iv = Strtol(PL_tokenbuf, (char**)NULL, 10);
else
- uv = Atoul(PL_tokenbuf);
+ uv = Strtoul(PL_tokenbuf, (char**)NULL, 10);
if (errno)
floatit = TRUE; /* probably just too large */
else if (*PL_tokenbuf == '-')
sv_setuv(sv, uv);
}
if (floatit) {
- char *tp;
- errno = 0;
value = Atof(PL_tokenbuf);
- if (errno)
- Perl_die(aTHX_ "unparseable float");
- else
- sv_setnv(sv, value);
- }
+ sv_setnv(sv, value);
+ }
#endif
if ( floatit ? (PL_hints & HINT_NEW_FLOAT) :
(PL_hints & HINT_NEW_INTEGER) )