diff options
author | Tony Cook <tony@develop-help.com> | 2014-05-22 11:05:59 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2014-05-29 16:23:11 +1000 |
commit | d4825b278e28006bdc9c3f36ab174eade62d6c4c (patch) | |
tree | 714a9ee65793a717abee083173209c9873831da5 /perlio.c | |
parent | fe2ce09d592612ace5bf8acccba9db512adb54a5 (diff) | |
download | perl-d4825b278e28006bdc9c3f36ab174eade62d6c4c.tar.gz |
put va_end() in the right place
Diffstat (limited to 'perlio.c')
-rw-r--r-- | perlio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4913,13 +4913,13 @@ PerlIO_vprintf(PerlIO *f, const char *fmt, va_list ap) va_list apc; Perl_va_copy(ap, apc); sv = vnewSVpvf(fmt, &apc); + va_end(apc); #else sv = vnewSVpvf(fmt, &ap); #endif s = SvPV_const(sv, len); wrote = PerlIO_write(f, s, len); SvREFCNT_dec(sv); - va_end(apc); return wrote; } |