From: Doug MacEachern <dougm@covalent.net>
Date: Tue, 6 Nov 2001 10:52:31 +0000 (-0800)
Subject: making do_sprintf public
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c58c997b3fa32226106cee9d1b147e20de017271;p=p5sagit%2Fp5-mst-13.2.git

making do_sprintf public
Message-ID: <Pine.LNX.4.21.0111061051250.27804-100000@localhost>

p4raw-id: //depot/perl@12877
---

diff --git a/embed.pl b/embed.pl
index 37b2cbd..eeee421 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1247,7 +1247,7 @@ p	|bool	|do_print	|SV* sv|PerlIO* fp
 p	|OP*	|do_readline
 p	|I32	|do_chomp	|SV* sv
 p	|bool	|do_seek	|GV* gv|Off_t pos|int whence
-p	|void	|do_sprintf	|SV* sv|I32 len|SV** sarg
+Ap	|void	|do_sprintf	|SV* sv|I32 len|SV** sarg
 p	|Off_t	|do_sysseek	|GV* gv|Off_t pos|int whence
 p	|Off_t	|do_tell	|GV* gv
 p	|I32	|do_trans	|SV* sv
diff --git a/global.sym b/global.sym
index 693e3d6..1130326 100644
--- a/global.sym
+++ b/global.sym
@@ -93,6 +93,7 @@ Perl_do_join
 Perl_do_open
 Perl_do_open9
 Perl_do_openn
+Perl_do_sprintf
 Perl_dowantarray
 Perl_dump_all
 Perl_dump_eval