Undo the SOCKS workarounds, instead start using PerlIO

[p5sagit/p5-mst-13.2.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index bf43e66..3e0271a 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -132,7 +132,7 @@ if ($define{PERL_OBJECT}) {
 
 if ($PLATFORM eq 'win32') {
     warn join(' ',keys %define)."\n";
-    print "LIBRARY Perl56\n";
+    print "LIBRARY Perl57\n";
     print "DESCRIPTION 'Perl interpreter'\n";
     print "EXPORTS\n";
     if ($define{PERL_IMPLICIT_SYS}) {
@@ -312,7 +312,6 @@ elsif ($PLATFORM eq 'os2') {
 
 unless ($define{'DEBUGGING'}) {
     skip_symbols [qw(
-                   Perl_deb
                    Perl_deb_growlevel
                    Perl_debop
                    Perl_debprofdump
@@ -477,18 +476,6 @@ unless ($define{'FAKE_THREADS'}) {
     skip_symbols [qw(PL_curthr)];
 }
 
-# All quad int platforms are assumed to have broken SOCKS
-unless ($define{USE_SOCKS} && $define{USE_64_BIT_ALL}) {
-    skip_symbols [qw(
-                    Perl_do_s64_fread
-                    Perl_do_s64_getc
-                    Perl_do_s64_delete_buffer
-                    Perl_do_s64_seek
-                    Perl_do_s64_tell
-                    Perl_do_s64_tell
-                   )];
-}
-
 sub readvar {
     my $file = shift;
     my $proc = shift || sub { "PL_$_[2]" };