Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
int ret = 0;
- va_list(arglist);
+ va_list arglist;
/* Easier to special case this here than in embed.pl. (Look at what it
generates for proto.h) */
Perl_printf_nocontext(const char *format, ...)
{
dTHX;
- va_list(arglist);
+ va_list arglist;
int ret = 0;
#ifdef PERL_IMPLICIT_CONTEXT
/* Assumes we have enough space, which is why this is deprecated. But the
* strnlen() makes it safe for the common case of NUL-terminated strings */
- return isUTF8_CHAR(s, s + strnlen((char *) s, UTF8SKIP(s)));
+ return isUTF8_CHAR(s, s + my_strnlen((char *) s, UTF8SKIP(s)));
}
/*