summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorGisle Aas <gisle@activestate.com>2005-12-12 10:41:04 +0000
committerGisle Aas <gisle@activestate.com>2005-12-12 10:41:04 +0000
commit18eaf740981d16295448f4e0ae82e559be636a26 (patch)
tree2c6d7da08ff6e26945a3612befdca152554cce34 /sv.c
parent640283f5813252b086f0011a9256515389d5b6a6 (diff)
downloadperl-18eaf740981d16295448f4e0ae82e559be636a26.tar.gz
Drop "v" prefix from sprintf("%vd", $^V).
The sprintf documentation has this example: printf "version is v%vd\n", $^V; and it printed 'version is vv5.9.3\n'. p4raw-id: //depot/perl@26326
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index df957d51f3..e0165d4bd3 100644
--- a/sv.c
+++ b/sv.c
@@ -8011,6 +8011,10 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
q++; /* skip past the rest of the %vd format */
eptr = (const char *) vecstr;
elen = veclen;
+ if (elen && *eptr == 'v') {
+ eptr++;
+ elen--;
+ }
vectorize=FALSE;
goto string;
}