Change 12629 by jhi@alpha on 2001/10/24 23:16:21
Upgrade NetWare and WinCE as in #12626.
Affected files ...
... //depot/perl/NetWare/dl_netware.xs#3 edit
... //depot/perl/wince/dl_win32.xs#3 edit
Differences ...
==== //depot/perl/NetWare/dl_netware.xs#3 (text) ====
Index: perl/NetWare/dl_netware.xs
--- perl/NetWare/dl_netware.xs.~1~ Wed Oct 24 17:30:05 2001
+++ perl/NetWare/dl_netware.xs Wed Oct 24 17:30:05 2001
@@ -181,7 +181,8 @@
char *
dl_error()
CODE:
- RETVAL = LastError ;
+ dMY_CXT;
+ RETVAL = dl_last_error ;
OUTPUT:
RETVAL
==== //depot/perl/wince/dl_win32.xs#3 (text) ====
Index: perl/wince/dl_win32.xs
--- perl/wince/dl_win32.xs.~1~ Wed Oct 24 17:30:05 2001
+++ perl/wince/dl_win32.xs Wed Oct 24 17:30:05 2001
@@ -32,21 +32,27 @@
#include "XSUB.h"
-static SV *error_sv;
+typedef struct {
+ SV * x_error_sv;
+} my_cxtx_t; /* this *must* be named my_cxtx_t */
+
+#define DL_CXT_EXTRA /* ask for dl_cxtx to be defined in dlutils.c */
+#include "dlutils.c" /* SaveError() etc */
+#define dl_error_sv (dl_cxtx.x_error_sv)
+
static char *
OS_Error_String(pTHX)
{
- DWORD err = GetLastError();
- STRLEN len;
- if (!error_sv)
- error_sv = newSVpvn("",0);
- PerlProc_GetOSError(error_sv,err);
- return SvPV(error_sv,len);
+ dMY_CXT;
+ DWORD err = GetLastError();
+ STRLEN len;
+ if (!dl_error_sv)
+ dl_error_sv = newSVpvn("",0);
+ PerlProc_GetOSError(dl_error_sv,err);
+ return SvPV(dl_error_sv,len);
}
-#include "dlutils.c" /* SaveError() etc */
-
static void
dl_private_init(pTHX)
{
@@ -157,7 +163,8 @@
char *
dl_error()
CODE:
- RETVAL = LastError ;
+ dMY_CXT;
+ RETVAL = dl_last_error;
OUTPUT:
RETVAL
End of Patch.
