diff options
author | Vincent Pit <vince@profvince.com> | 2010-05-06 22:14:31 +0200 |
---|---|---|
committer | Vincent Pit <vince@profvince.com> | 2010-05-06 22:36:35 +0200 |
commit | d347ad18ecf3da70504843223bc83fa49705ebaf (patch) | |
tree | ece84d78d3e4042cd9d64f6682fe81e280778887 /sv.c | |
parent | 1795af272b5e89d0c3027b37e9421fc209c07253 (diff) | |
download | perl-d347ad18ecf3da70504843223bc83fa49705ebaf.tar.gz |
Stop returning 0 for sprintf("%.0g")
And also from throwing two "Missing argument" warnings for this construct.
This was a regression introduced by 5b98cd54dff3b16344eab33ce6b09fb6fb1b89c2.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -9391,8 +9391,10 @@ Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, if (svix < svmax) nv = SvNV(*svargs); - else + else { S_vcatpvfn_missing_argument(aTHX); + return; + } if (*pp == 'g') { /* Add check for digits != 0 because it seems that some gconverts are buggy in this case, and we don't yet have |