projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
With PERL_DONT_CREATE_GVSV, don't need to create a new GvSV in
[p5sagit/p5-mst-13.2.git]
/
doop.c
diff --git
a/doop.c
b/doop.c
index
847b18e
..
0e9ddf1
100644
(file)
--- a/
doop.c
+++ b/
doop.c
@@
-722,7
+722,7
@@
Perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg)
SvUTF8_off(sv);
if (DO_UTF8(*sarg))
SvUTF8_on(sv);
- sv_vsetpvfn(sv, pat, patlen, Null(va_list*), sarg + 1, len - 1, &do_taint);
+ sv_vsetpvfn(sv, pat, patlen, NULL, sarg + 1, len - 1, &do_taint);
SvSETMAGIC(sv);
if (do_taint)
SvTAINTED_on(sv);