diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-05 23:08:17 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-05 23:08:17 +0000 |
| commit | 5138f91426baaaf2b1b29e96c14ea3e0fa029755 (patch) | |
| tree | 926c216583396fc7931ac0e7f176763b52d0fc62 /makedef.pl | |
| parent | 016cb72cf9c105870bee6a8400914494bc6b9d12 (diff) | |
| download | perl-5138f91426baaaf2b1b29e96c14ea3e0fa029755.tar.gz | |
skipping USE_PERLIO symbols correction.
p4raw-id: //depot/perlio@9052
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/makedef.pl b/makedef.pl index da0b36c96b..88c2d88ff3 100644 --- a/makedef.pl +++ b/makedef.pl @@ -589,7 +589,7 @@ if ($define{'USE_PERLIO'}) { PerlIO_write )]; } - else { +} else { # Skip the PerlIO New Generation symbols. skip_symbols [qw( PerlIOBase_clearerr @@ -618,8 +618,7 @@ if ($define{'USE_PERLIO'}) { PerlIO_push PerlIO_unread )]; - } -} +} for my $syms (@syms) { open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n"; |