X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDynaLoader%2Fdl_dlopen.xs;h=83f5aed0744cdcd9bb25ae8c626bf82db5c6e260;hb=77004dee2553ce034a8a58b2b2849e3656df46c3;hp=475112a684e070ac7d3656b3cea2c7386278f73c;hpb=3c0f78ca4f737d7b40beecbfdca31b9f7e3fb952;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs
index 475112a..83f5aed 100644
--- a/ext/DynaLoader/dl_dlopen.xs
+++ b/ext/DynaLoader/dl_dlopen.xs
@@ -248,18 +248,12 @@ dl_install_xsub(perl_name, symref, filename="$Package")
     void *		symref 
     char *		filename
     CODE:
-    DLDEBUG(2,PerlIO_printf(Perl_debug_log, "dl_install_xsub(name=%s, symref=%lx)\n",
-		perl_name, (unsigned long) symref));
-#if defined(__DECC) && defined(__osf__)
-#pragma message save
-#pragma message disable (nonstandcast) /* Avoid symref cast warning. */
-#endif
-    ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
-					(void(*)(pTHX_ CV *))symref,
-					filename)));
-#if defined(__DECC) && defined(__osf__)
-#pragma message restore
-#endif
+    DLDEBUG(2,PerlIO_printf(Perl_debug_log, "dl_install_xsub(name=%s, symref=%"UVxf")\n",
+		perl_name, PTR2UV(symref)));
+    ST(0) = sv_2mortal(newRV((SV*)newXS_flags(perl_name,
+					      DPTR2FPTR(XSUBADDR_t, symref),
+					      filename, NULL,
+					      XS_DYNAMIC_FILENAME)));
 
 
 char *