perl/src/sv.c
/* pTHX_ magic can't cope with varargs, so this is a no-context
 * version of the main function, (which may itself be aliased to us).
 * Don't access this version directly.
 */
pTHX_ magic can't cope with varargs, so this is a no-context
version of the main function, (which may itself be aliased to us).
Don't access this version directly.
pTHX_ magic can ' t cope with varargs so this is a no - context version of the main function ( which may itself be aliased to us ) . Don ' t access this version directly .
void
Perl_sv_setpvf_nocontext(SV *const sv, const char *const pat, ...)
{
    dTHX;
    va_list args;
    PERL_ARGS_ASSERT_SV_SETPVF_NOCONTEXT;
    va_start(args, pat);
    sv_vsetpvf(sv, pat, &args);
    va_end(args);
}
void Perl_sv_setpvf_nocontext ( SV * const sv , const char * const pat , ... ) { dTHX ; va_list args ; PERL_ARGS_ASSERT_SV_SETPVF_NOCONTEXT ; va_start ( args , pat ) ; sv_vsetpvf ( sv , pat , & args ) ; va_end ( args ) ; }
pTHX_ magic can't cope with varargs, so this is a no-context
 version of the main function, (which may itself be aliased to us).
pTHX_ magic can ' t cope with varargs so this is a no - context version of the main function ( which may itself be aliased to us ) .