int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
+ dTHXs;
va_list(arglist);
va_start(arglist, format);
return PerlIO_vprintf(stream, format, arglist);
int
Perl_printf_nocontext(const char *format, ...)
{
+ dTHXs;
va_list(arglist);
va_start(arglist, format);
return PerlIO_vprintf(PerlIO_stdout(), format, arglist);