Lines Matching +defs:val +defs:opt
1443 /* since we've already done strlen() for both nam and val
1445 * sprintf(s, "%s=%s", nam, val)
1447 #define my_setenv_format(s, nam, nlen, val, vlen) \
1450 Copy(val, s+(nlen+1), vlen, char); \
1457 Perl_my_setenv(pTHX_ char *nam, char *val)
1485 if (!val) {
1500 vlen = strlen(val);
1504 my_setenv_format(environ[i], nam, nlen, val, vlen);
1508 setenv(nam, val, 1);
1512 if (!val) {
1513 val = "";
1515 vlen = strlen(val);
1518 my_setenv_format(new_env, nam, nlen, val, vlen);
1528 Perl_my_setenv(pTHX_ char *nam,char *val)
1533 if (!val) {
1534 val = "";
1536 vlen = strlen(val);
1538 my_setenv_format(envstr, nam, nlen, val, vlen);
4252 U32 opt = 0;
4256 opt = (U32) atoi(p);
4265 opt |= PERL_UNICODE_STDIN_FLAG; break;
4267 opt |= PERL_UNICODE_STDOUT_FLAG; break;
4269 opt |= PERL_UNICODE_STDERR_FLAG; break;
4271 opt |= PERL_UNICODE_STD_FLAG; break;
4273 opt |= PERL_UNICODE_IN_FLAG; break;
4275 opt |= PERL_UNICODE_OUT_FLAG; break;
4277 opt |= PERL_UNICODE_INOUT_FLAG; break;
4279 opt |= PERL_UNICODE_LOCALE_FLAG; break;
4281 opt |= PERL_UNICODE_ARGV_FLAG; break;
4291 opt = PERL_UNICODE_DEFAULT_FLAGS;
4293 if (opt & ~PERL_UNICODE_ALL_FLAGS)
4295 (UV) (opt & ~PERL_UNICODE_ALL_FLAGS));
4299 return opt;