diff options
Diffstat (limited to 'ext/DynaLoader/dl_dlopen.xs')
| -rw-r--r-- | ext/DynaLoader/dl_dlopen.xs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs index 5978bfd037..83f5aed074 100644 --- a/ext/DynaLoader/dl_dlopen.xs +++ b/ext/DynaLoader/dl_dlopen.xs @@ -250,9 +250,10 @@ dl_install_xsub(perl_name, symref, filename="$Package") CODE: 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(perl_name, - DPTR2FPTR(XSUBADDR_t, symref), - filename))); + ST(0) = sv_2mortal(newRV((SV*)newXS_flags(perl_name, + DPTR2FPTR(XSUBADDR_t, symref), + filename, NULL, + XS_DYNAMIC_FILENAME))); char * |