void S_vdie_common(pTHX_ const char *message, STRLEN msglen, I32 utf8);
-char *
+STATIC char *
S_vdie_croak_common(pTHX_ const char* pat, va_list* args, STRLEN* msglen,
I32* utf8)
{
#else /* WIN32 || NETWARE */
void
-Perl_my_setenv(pTHX_ const char *nam, char *val)
+Perl_my_setenv(pTHX_ const char *nam, const char *val)
{
register char *envstr;
const int nlen = strlen(nam);
if (strEQ(scriptname, "-"))
dosearch = 0;
if (dosearch) { /* Look in '.' first. */
- char *cur = scriptname;
+ const char *cur = scriptname;
#ifdef SEARCH_EXTS
if ((curext = strrchr(scriptname,'.'))) /* possible current ext */
while (ext[i])
}
#endif
-const char **
+char **
Perl_get_op_names(pTHX)
{
return PL_op_name;
}
-const char **
+char **
Perl_get_op_descs(pTHX)
{
return PL_op_desc;