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 (executable)
--- 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 (file)
--- 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