Lines Matching +defs:val +defs:message
988 Perl_write_to_stderr(pTHX_ const char* message, int msglen)
1010 PUSHs(sv_2mortal(newSVpvn(message, msglen)));
1025 PERL_WRITE_MSG_TO_CONSOLE(serr, message, msglen);
1036 char *message;
1053 message = SvPV(PL_errors, msglen);
1057 message = SvPV(msv,msglen);
1061 message = Nullch;
1066 "%p: die: message = %s\ndiehook = %p\n",
1067 thr, message, PL_diehook));
1082 if (message) {
1083 msg = newSVpvn(message, msglen);
1102 PL_restartop = die_where(message, msglen);
1140 char *message;
1152 message = SvPV(PL_errors, msglen);
1156 message = SvPV(msv,msglen);
1160 message = Nullch;
1165 PTR2UV(thr), message));
1181 if (message) {
1182 msg = newSVpvn(message, msglen);
1201 PL_restartop = die_where(message, msglen);
1205 else if (!message)
1206 message = SvPVx(ERRSV, msglen);
1208 write_to_stderr(message, msglen);
1258 char *message;
1268 message = SvPV(msv, msglen);
1284 msg = newSVpvn(message, msglen);
1300 write_to_stderr(message, msglen);
1357 char *message;
1366 message = SvPV(msv, msglen);
1371 DEBUG_S(PerlIO_printf(Perl_debug_log, "croak: 0x%"UVxf" %s", PTR2UV(thr), message));
1387 msg = newSVpvn(message, msglen);
1402 PL_restartop = die_where(message, msglen);
1406 write_to_stderr(message, msglen);
1424 msg = newSVpvn(message, msglen);
1439 write_to_stderr(message, msglen);
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);
2817 seen_dot = 1; /* Disable message. */