diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-04-28 08:44:28 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-04-28 08:44:28 +0000 |
| commit | 954fb84efff0b08c3cc7311c30925dbc511e7c11 (patch) | |
| tree | c6f1b542046314a1afb13dc51fafca6617684221 /makedef.pl | |
| parent | c2bfdfaf3f7731071c0d7c0684c538dffecf7ac6 (diff) | |
| download | perl-954fb84efff0b08c3cc7311c30925dbc511e7c11.tar.gz | |
Fix perlsio_binmode() export breakage caused by change #24338
Define and export perlsio_binmode() based on the same condition,
namely, that USE_PERLIO is defined and USE_SFIO is not.
p4raw-link: @24338 on //depot/perl: de009b76d60bdeb88f1d812ac755ae225805a071
p4raw-id: //depot/perl@24341
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 4 |
1 files changed, 3 insertions, 1 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 |