|
 |
fe135e |
diff --git a/src/cmd/ksh93/sh/arith.c b/src/cmd/ksh93/sh/arith.c
|
|
|
fe135e |
--- a/src/cmd/ksh93/sh/arith.c
|
|
|
fe135e |
+++ b/src/cmd/ksh93/sh/arith.c
|
|
|
fe135e |
@@ -513,21 +513,34 @@ Sfdouble_t sh_strnum(register const char *str, char** ptr, int mode)
|
|
|
fe135e |
char base=(shp->inarith?0:10), *last;
|
|
|
fe135e |
if(*str==0)
|
|
|
fe135e |
{
|
|
|
fe135e |
- if(ptr)
|
|
|
fe135e |
- *ptr = (char*)str;
|
|
|
fe135e |
- return(0);
|
|
|
fe135e |
- }
|
|
|
fe135e |
- errno = 0;
|
|
|
fe135e |
- d = strtonll(str,&last,&base,-1);
|
|
|
fe135e |
- if(*last || errno)
|
|
|
fe135e |
- {
|
|
|
fe135e |
- if(!last || *last!='.' || last[1]!='.')
|
|
|
fe135e |
- d = strval(shp,str,&last,arith,mode);
|
|
|
fe135e |
- if(!ptr && *last && mode>0)
|
|
|
fe135e |
- errormsg(SH_DICT,ERROR_exit(1),e_lexbadchar,*last,str);
|
|
|
fe135e |
+ d = 0.0;
|
|
|
fe135e |
+ last = (char*)str;
|
|
|
fe135e |
+ } else {
|
|
|
fe135e |
+ errno = 0;
|
|
|
fe135e |
+ d = strtonll(str,&last,&base,-1);
|
|
|
fe135e |
+ if (*last && !shp->inarith && sh_isstate(SH_INIT)) {
|
|
|
fe135e |
+ // This call is to handle "base#value" literals if we're importing untrusted env vars.
|
|
|
fe135e |
+ errno = 0;
|
|
|
fe135e |
+ d = strtonll(str, &last, NULL, -1);
|
|
|
fe135e |
+ }
|
|
|
fe135e |
+
|
|
|
fe135e |
+ if(*last || errno)
|
|
|
fe135e |
+ {
|
|
|
fe135e |
+ if (sh_isstate(SH_INIT)) {
|
|
|
fe135e |
+ // Initializing means importing untrusted env vars. Since the string does not appear
|
|
|
fe135e |
+ // to be a recognized numeric literal give up. We can't safely call strval() since
|
|
|
fe135e |
+ // that allows arbitrary expressions which would create a security vulnerability.
|
|
|
fe135e |
+ d = 0.0;
|
|
|
fe135e |
+ } else {
|
|
|
fe135e |
+ if(!last || *last!='.' || last[1]!='.')
|
|
|
fe135e |
+ d = strval(shp,str,&last,arith,mode);
|
|
|
fe135e |
+ if(!ptr && *last && mode>0)
|
|
|
fe135e |
+ errormsg(SH_DICT,ERROR_exit(1),e_lexbadchar,*last,str);
|
|
|
fe135e |
+ }
|
|
|
fe135e |
+ } else if (!d && *str=='-') {
|
|
|
fe135e |
+ d = -0.0;
|
|
|
fe135e |
+ }
|
|
|
fe135e |
}
|
|
|
fe135e |
- else if (!d && *str=='-')
|
|
|
fe135e |
- d = -0.0;
|
|
|
fe135e |
if(ptr)
|
|
|
fe135e |
*ptr = last;
|
|
|
fe135e |
return(d);
|