diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-14 20:48:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-14 20:48:06 +0000 |
| commit | b0316773a7479486204b0422c55f41a957e6f99b (patch) | |
| tree | cc030609927a1f6c9300d3bebcc669c5d104e5f9 /embed.pl | |
| parent | 5f464b2eb090216cc66e37fd53ea85cc759ad9be (diff) | |
| download | perl-b0316773a7479486204b0422c55f41a957e6f99b.tar.gz | |
Integrate change #9154 from maintperl to mainline.
PerlIO_stdoutf() wasn't properly supported under PERL_IMPLICIT_SYS
(caused Storable 1.0.10 to break on windows)
p4raw-link: @9154 on //depot/maint-5.6/perl: 241ea079897f140daac27d059c9935e78ec152ec
p4raw-id: //depot/perl@9156
p4raw-integrated: from //depot/maint-5.6/perl@9155 'copy in' globals.c
(@5902..) 'merge in' global.sym (@8599..) iperlsys.h (@8800..)
objXSUB.h perlapi.c (@8993..) embed.h embed.pl proto.h
(@9108..)
Diffstat (limited to 'embed.pl')
| -rwxr-xr-x | embed.pl | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -1073,6 +1073,16 @@ Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist); } +#undef Perl_printf_nocontext +int +Perl_printf_nocontext(const char *format, ...) +{ + dTHXo; + va_list(arglist); + va_start(arglist, format); + return (*PL_StdIO->pVprintf)(PL_StdIO, PerlIO_stdout(), format, arglist); +} + END_EXTERN_C #endif /* PERL_OBJECT */ @@ -1445,6 +1455,7 @@ Afnp |void |sv_setpvf_nocontext|SV* sv|const char* pat|... Afnp |void |sv_catpvf_mg_nocontext|SV* sv|const char* pat|... Afnp |void |sv_setpvf_mg_nocontext|SV* sv|const char* pat|... Afnp |int |fprintf_nocontext|PerlIO* stream|const char* fmt|... +Afnp |int |printf_nocontext|const char* fmt|... #endif p |void |cv_ckproto |CV* cv|GV* gv|char* p p |CV* |cv_clone |CV* proto |