p4raw-id: //depot/perlio@9052
PerlIO_write
)];
}
- else {
+} else {
# Skip the PerlIO New Generation symbols.
skip_symbols [qw(
PerlIOBase_clearerr
PerlIO_push
PerlIO_unread
)];
- }
-}
+}
for my $syms (@syms) {
open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n";