4
confess_at(const char *file, int line, const char *func,
9
SV *error_sv = newSVpvf("Error in function %s at %s:%d: ", func,
13
sv_vcatpvf(error_sv, pat, &args);
16
sv_catpvn(error_sv, "\n\t", 2);
22
XPUSHs( sv_2mortal(error_sv) );
24
call_pv("Carp::confess", G_DISCARD);