diff options
| -rw-r--r-- | makedef.pl | 4 | ||||
| -rw-r--r-- | perlio.c | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/makedef.pl b/makedef.pl index 28b7b3d67f..3a85ffc442 100644 --- a/makedef.pl +++ b/makedef.pl @@ -909,6 +909,7 @@ if ($define{'USE_PERLIO'}) { if ($define{'USE_SFIO'}) { # Old legacy non-stdio "PerlIO" skip_symbols \@layer_syms; + skip_symbols [qw(perlsio_binmode)]; # SFIO defines most of the PerlIO routines as macros # So undo most of what $perlio_sym has just done - d'oh ! # Perhaps it would be better to list the ones which do exist @@ -986,12 +987,14 @@ if ($define{'USE_PERLIO'}) { else { # PerlIO with layers - export implementation emit_symbols \@layer_syms; + emit_symbols [qw(perlsio_binmode)]; } } else { # -Uuseperlio # Skip the PerlIO layer symbols - although # nothing should have exported them anyway. skip_symbols \@layer_syms; + skip_symbols [qw(perlsio_binmode)]; skip_symbols [qw(PL_def_layerlist PL_known_layers PL_perlio)]; # Also do NOT add abstraction symbols from $perlio_sym @@ -1483,4 +1486,3 @@ PerlIO_sprintf PerlIO_sv_dup PerlIO_tmpfile PerlIO_vsprintf -perlsio_binmode @@ -112,8 +112,8 @@ int mkstemp(char*); else \ SETERRNO(EBADF, SS_IVCHAN) -#ifdef USE_SFIO -static int +#ifndef USE_SFIO +int perlsio_binmode(FILE *fp, int iotype, int mode) { /* |