From: Nick Ing-Simmons Date: Mon, 5 Mar 2001 23:08:17 +0000 (+0000) Subject: skipping USE_PERLIO symbols correction. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5138f91426baaaf2b1b29e96c14ea3e0fa029755;p=p5sagit%2Fp5-mst-13.2.git skipping USE_PERLIO symbols correction. p4raw-id: //depot/perlio@9052 --- diff --git a/makedef.pl b/makedef.pl index da0b36c..88c2d88 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";