summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorVincent Pit <vince@profvince.com>2010-05-06 22:14:31 +0200
committerVincent Pit <vince@profvince.com>2010-05-06 22:36:35 +0200
commitd347ad18ecf3da70504843223bc83fa49705ebaf (patch)
treeece84d78d3e4042cd9d64f6682fe81e280778887 /sv.c
parent1795af272b5e89d0c3027b37e9421fc209c07253 (diff)
downloadperl-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.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 4f2ad99e22..4fd944588c 100644
--- a/sv.c
+++ b/sv.c
@@ -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