In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5eb9f461ffc6ee3b593f727dcbe05bcdc77bde57?hp=29b43da2723775cbc8877ecd48c8e5aae8f087bc>
- Log ----------------------------------------------------------------- commit 5eb9f461ffc6ee3b593f727dcbe05bcdc77bde57 Author: Nicholas Clark <[email protected]> Date: Mon Oct 7 10:32:39 2013 +0200 Purge remaining references to PerlIO_sprintf and PerlIO_vsprintf(). Eliminate their function prototypes. Eliminate references in perlio.sym and makedef.pl which caused them to still be added to the Win32 linker definitions. ----------------------------------------------------------------------- Summary of changes: makedef.pl | 3 --- perlio.h | 4 ---- perlio.sym | 2 -- perliol.h | 2 -- perlsfio.h | 1 - 5 files changed, 12 deletions(-) diff --git a/makedef.pl b/makedef.pl index cd0d3fe..5c49859 100644 --- a/makedef.pl +++ b/makedef.pl @@ -677,7 +677,6 @@ if ($define{'USE_PERLIO'}) { PerlIO_set_cnt PerlIO_set_ptrcnt PerlIO_setlinebuf - PerlIO_sprintf PerlIO_stderr PerlIO_stdin PerlIO_stdout @@ -805,9 +804,7 @@ try_symbols(qw( PerlIO_getpos PerlIO_init PerlIO_setpos - PerlIO_sprintf PerlIO_tmpfile - PerlIO_vsprintf )); if ($ARGS{PLATFORM} eq 'win32') { diff --git a/perlio.h b/perlio.h index 69f0476..c55cbf6 100644 --- a/perlio.h +++ b/perlio.h @@ -281,10 +281,6 @@ PERL_EXPORT_C void PerlIO_setlinebuf(PerlIO *); PERL_EXPORT_C int PerlIO_printf(PerlIO *, const char *, ...) __attribute__format__(__printf__, 2, 3); #endif -#ifndef PerlIO_sprintf -PERL_EXPORT_C int PerlIO_sprintf(char *, int, const char *, ...) - __attribute__format__(__printf__, 3, 4); -#endif #ifndef PerlIO_vprintf PERL_EXPORT_C int PerlIO_vprintf(PerlIO *, const char *, va_list); #endif diff --git a/perlio.sym b/perlio.sym index bca044c..30c3f61 100644 --- a/perlio.sym +++ b/perlio.sym @@ -21,10 +21,8 @@ PerlIO_releaseFILE PerlIO_reopen PerlIO_rewind PerlIO_setpos -PerlIO_sprintf PerlIO_stdoutf PerlIO_teardown PerlIO_tmpfile PerlIO_ungetc PerlIO_vprintf -PerlIO_vsprintf diff --git a/perliol.h b/perliol.h index c667f1f..82a3840 100644 --- a/perliol.h +++ b/perliol.h @@ -158,8 +158,6 @@ PERL_EXPORT_C PerlIO_list_t * PerlIO_resolve_layers(pTHX_ const char *layers, co PERL_EXPORT_C PerlIO_funcs * PerlIO_default_layer(pTHX_ I32 n); PERL_EXPORT_C PerlIO_list_t * PerlIO_default_layers(pTHX); PERL_EXPORT_C PerlIO * PerlIO_reopen(const char *path, const char *mode, PerlIO *f); -PERL_EXPORT_C int PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap) - __attribute__format__(__printf__,3,0); PERL_EXPORT_C PerlIO_list_t *PerlIO_list_alloc(pTHX); PERL_EXPORT_C PerlIO_list_t *PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param); diff --git a/perlsfio.h b/perlsfio.h index 66ec10f..05c81a6 100644 --- a/perlsfio.h +++ b/perlsfio.h @@ -43,7 +43,6 @@ extern int _stdprintf _ARG_((const char*, ...)); #define PerlIO_puts(f,s) sfputr(f,s,-1) #define PerlIO_putc(f,c) sfputc(f,c) #define PerlIO_ungetc(f,c) sfungetc(f,c) -#define PerlIO_sprintf sfsprintf #define PerlIO_getc(f) sfgetc(f) #define PerlIO_eof(f) sfeof(f) #define PerlIO_error(f) sferror(f) -- Perl5 Master Repository
