diff options
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 12 |
1 files changed, 2 insertions, 10 deletions
@@ -479,11 +479,7 @@ PerlIO_debug(const char *fmt, ...) /* Use fixed buffer as sv_catpvf etc. needs SVs */ char buffer[1024]; const STRLEN len = my_sprintf(buffer, "%.40s:%" IVdf " ", s ? s : "(none)", (IV) CopLINE(PL_curcop)); -# ifdef USE_VSNPRINTF - const STRLEN len2 = vsnprintf(buffer+len, sizeof(buffer) - len, fmt, ap); -# else - const STRLEN len2 = vsprintf(buffer+len, fmt, ap); -# endif /* USE_VSNPRINTF */ + const STRLEN len2 = my_vsnprintf(buffer+len, sizeof(buffer) - len, fmt, ap); PerlLIO_write(PL_perlio_debug_fd, buffer, len + len2); #else const char *s = CopFILE(PL_curcop); @@ -5147,11 +5143,7 @@ int PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap) { dVAR; -#ifdef USE_VSNPRINTF - const int val = vsnprintf(s, n > 0 ? n : 0, fmt, ap); -#else - const int val = vsprintf(s, fmt, ap); -#endif /* #ifdef USE_VSNPRINTF */ + const int val = my_vsnprintf(s, n > 0 ? n : 0, fmt, ap); if (n >= 0) { if (strlen(s) >= (STRLEN) n) { dTHX; |