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 /perlapi.c | |
| 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 'perlapi.c')
| -rw-r--r-- | perlapi.c | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -480,6 +480,8 @@ Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) } #undef Perl_fprintf_nocontext + +#undef Perl_printf_nocontext #endif #undef Perl_cv_const_sv @@ -4199,6 +4201,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 */ |