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;