From 77004dee2553ce034a8a58b2b2849e3656df46c3 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 2 May 2006 15:55:25 +0000 Subject: Fix bug in DynaLoader, which has been passing a filename in dynamic storage to newXS() seemingly forever. This involves creating newXS_flags(), with the first flag being "arrange to copy the filename and free it at the right time". p4raw-id: //depot/perl@28063 --- ext/DynaLoader/dl_hpux.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/DynaLoader/dl_hpux.xs') diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs index 5e7c7445af..0c751dd2b7 100644 --- a/ext/DynaLoader/dl_hpux.xs +++ b/ext/DynaLoader/dl_hpux.xs @@ -164,10 +164,10 @@ dl_install_xsub(perl_name, symref, filename="$Package") CODE: DLDEBUG(2,PerlIO_printf(Perl_debug_log, "dl_install_xsub(name=%s, symref=%x)\n", perl_name, symref)); - ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name, - (void(*)(pTHX_ CV *))symref, - filename))); - + ST(0) = sv_2mortal(newRV((SV*)newXS_flags(perl_name, + (void(*)(pTHX_ CV *))symref, + filename, NULL, + XS_DYNAMIC_FILENAME))); char * dl_error() -- cgit v1.2.1