Re: [perl #22984] perl-5.8.1-RC2: TEST -bytecompile won't work at all

[p5sagit/p5-mst-13.2.git] / ext / DynaLoader / dl_dllload.xs

diff --git a/ext/DynaLoader/dl_dllload.xs b/ext/DynaLoader/dl_dllload.xs
index fe6957a..497e096 100644 (file)
--- a/ext/DynaLoader/dl_dllload.xs
+++ b/ext/DynaLoader/dl_dllload.xs
@@ -182,7 +182,8 @@ dl_install_xsub(perl_name, symref, filename="$Package")
 char *
 dl_error()
     CODE:
-    RETVAL = LastError ;
+    dMY_CXT;
+    RETVAL = dl_last_error ;
     OUTPUT:
     RETVAL