my_sprintf

#if !defined(my_sprintf) #if { NEED my_sprintf }

/* Warning: my_sprintf It's safer to use my_snprintf instead */

/* Replace my_sprintf with my_snprintf */

int my_sprintf(char *buffer, const char* pat, ...) { va_list args; va_start(args, pat); vsprintf(buffer, pat, args); va_end(args); return strlen(buffer); }

#endif #endif

#define NEED_my_sprintf

void my_sprintf() PREINIT: char buf[128]; int len; PPCODE: len = my_sprintf(buf, "foo%s%d", "bar", 42); mXPUSHi(len); mXPUSHs(newSVpv(buf, 0)); XSRETURN(2);

my($l, $s) = Devel::PPPort::my_sprintf(); ok($l, 8); ok($s, "foobar42");