diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-10 18:15:37 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-10 20:21:06 -0800 |
commit | 1d55083cd581c158cb108c021e3625e4686463f8 (patch) | |
tree | 80796f9ebfdfecdb7edd6c53d1613942ee4a10c1 /sv.c | |
parent | 9911fc4e591c446844059afc8e5ec87c56a7b33e (diff) | |
download | perl-1d55083cd581c158cb108c021e3625e4686463f8.tar.gz |
Don’t do string overloading for printf int formats
See <20141130160250.GC31019@pjcj.net>. Commit 354b74ae6f broke this.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -11703,6 +11703,8 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p if (argsv && strchr("BbcDdiOopuUXx",*q)) { /* XXX va_arg(*args) case? need peek, use va_copy? */ SvGETMAGIC(argsv); + if (UNLIKELY(SvAMAGIC(argsv))) + argsv = sv_2num(argsv); infnan = UNLIKELY(isinfnansv(argsv)); } |