skipping USE_PERLIO symbols correction.
Nick Ing-Simmons [Mon, 5 Mar 2001 23:08:17 +0000 (23:08 +0000)]
p4raw-id: //depot/perlio@9052

makedef.pl

index da0b36c..88c2d88 100644 (file)
@@ -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";