|
@@ -1,5 +1,5 @@
|
|
|
/*
|
|
|
-** $Id: lobject.c,v 2.37 2010/04/05 16:26:37 roberto Exp roberto $
|
|
|
+** $Id: lobject.c,v 2.38 2010/04/13 20:48:12 roberto Exp roberto $
|
|
|
** Some generic functions over Lua objects
|
|
|
** See Copyright Notice in lua.h
|
|
|
*/
|
|
@@ -112,10 +112,8 @@ int luaO_str2d (const char *s, lua_Number *result) {
|
|
|
if (endptr == s) return 0; /* conversion failed */
|
|
|
if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */
|
|
|
*result = cast_num(strtoul(s, &endptr, 16));
|
|
|
- if (*endptr == '\0') return 1; /* most common case */
|
|
|
while (lisspace(cast(unsigned char, *endptr))) endptr++;
|
|
|
- if (*endptr != '\0') return 0; /* invalid trailing characters? */
|
|
|
- return 1;
|
|
|
+ return (*endptr == '\0'); /* OK if no trailing characters */
|
|
|
}
|
|
|
|
|
|
|