diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-25 05:14:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-25 05:14:17 +0000 |
| commit | ec2c99ef44702c6855b1e18d57dfd356f1d5932d (patch) | |
| tree | 35d3bf3e6a5b3d0d13309db5365d265812e2d12b /ext/DynaLoader | |
| parent | c6a08c253a17bd25821c6e2e032d50a066956a42 (diff) | |
| download | perl-ec2c99ef44702c6855b1e18d57dfd356f1d5932d.tar.gz | |
Like dl_hpux, like dl_dld.
p4raw-id: //depot/perl@12637
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/dl_dld.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/DynaLoader/dl_dld.xs b/ext/DynaLoader/dl_dld.xs index a78af2ed7d..101efac0cc 100644 --- a/ext/DynaLoader/dl_dld.xs +++ b/ext/DynaLoader/dl_dld.xs @@ -93,8 +93,8 @@ dl_load_file(filename, flags=0) PREINIT: int dlderr,x,max; GV *gv; - CODE: dMY_CXT; + CODE: RETVAL = filename; DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filename,flags)); if (flags & 0x01) @@ -180,8 +180,9 @@ dl_install_xsub(perl_name, symref, filename="$Package") char * dl_error() - CODE: + PREINIT: dMY_CXT; + CODE: RETVAL = dl_last_error ; OUTPUT: RETVAL |