This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_croak() needs an aTHX_ in PerlIO_vsprintf().
authorNicholas Clark <nick@ccl4.org>
Fri, 19 May 2006 22:48:38 +0000 (22:48 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 19 May 2006 22:48:38 +0000 (22:48 +0000)
p4raw-id: //depot/perl@28247

perlio.c

index a4b7bb4..d2c96ad 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -5142,12 +5142,11 @@ vfprintf(FILE *fd, char *pat, char *args)
 int
 PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
 {
 int
 PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
 {
-    dTHX;
     const int val = my_vsnprintf(s, n > 0 ? n : 0, fmt, ap);
 #ifndef PERL_MY_VSNPRINTF_GUARDED
     if (val < 0 || (n > 0 ? val >= n : 0)) {
        dTHX;
     const int val = my_vsnprintf(s, n > 0 ? n : 0, fmt, ap);
 #ifndef PERL_MY_VSNPRINTF_GUARDED
     if (val < 0 || (n > 0 ? val >= n : 0)) {
        dTHX;
-       Perl_croak("panic: my_vsnprintf overflow in PerlIO_vsprintf\n");
+       Perl_croak(aTHX_ "panic: my_vsnprintf overflow in PerlIO_vsprintf\n");
     }
 #endif
     return val;
     }
 #endif
     return val;