diff options
| -rw-r--r-- | lobject.c | 3 |
1 files changed, 2 insertions, 1 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lobject.c,v 2.16 2005/07/11 14:00:14 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 2.17 2005/07/31 17:11:50 roberto Exp roberto $ |
| 3 | ** Some generic functions over Lua objects | 3 | ** Some generic functions over Lua objects |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -91,6 +91,7 @@ int luaO_str2d (const char *s, lua_Number *result) { | |||
| 91 | char *endptr; | 91 | char *endptr; |
| 92 | *result = lua_str2number(s, &endptr); | 92 | *result = lua_str2number(s, &endptr); |
| 93 | if (endptr == s) return 0; /* conversion failed */ | 93 | if (endptr == s) return 0; /* conversion failed */ |
| 94 | if (*endptr == '\0') return 1; /* most common case */ | ||
| 94 | while (isspace(cast(unsigned char, *endptr))) endptr++; | 95 | while (isspace(cast(unsigned char, *endptr))) endptr++; |
| 95 | if (*endptr != '\0') return 0; /* invalid trailing characters? */ | 96 | if (*endptr != '\0') return 0; /* invalid trailing characters? */ |
| 96 | return 1; | 97 | return 1; |
