Change 13935 by jhi@alpha on 2001/12/29 17:36:08
Integrate perlio;
Define the two socket error numbers in terms of WSAEXXXXX equivalents
Fudge Config.pm so File::Spec does not croak.
Affected files ...
.... //depot/perl/win32/FindExt.pm#5 integrate
.... //depot/perl/win32/win32.h#95 integrate
Differences ...
==== //depot/perl/win32/FindExt.pm#5 (text) ====
Index: perl/win32/FindExt.pm
--- perl/win32/FindExt.pm.~1~ Sat Dec 29 10:45:06 2001
+++ perl/win32/FindExt.pm Sat Dec 29 10:45:06 2001
@@ -2,6 +2,9 @@
our $VERSION = '1.00';
+# We (probably) have not got a Config.pm yet
+BEGIN { $INC{'Config.pm'} = __FILE__ };
+
use strict;
use File::Find;
use File::Basename;
==== //depot/perl/win32/win32.h#95 (text) ====
Index: perl/win32/win32.h
--- perl/win32/win32.h.~1~ Sat Dec 29 10:45:06 2001
+++ perl/win32/win32.h Sat Dec 29 10:45:06 2001
@@ -509,5 +509,12 @@
#define EXEC_ARGV_CAST(x) ((const char *const *) x)
+#if !defined(ECONNABORTED) && defined(WSAECONNABORTED)
+#define ECONNABORTED WSAECONNABORTED
+#endif
+#if !defined(EAFNOSUPPORT) && defined(WSAEAFNOSUPPORT)
+#define EAFNOSUPPORT WSAEAFNOSUPPORT
+#endif
+
#endif /* _INC_WIN32_PERL5 */
End of Patch.
