projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c6a08c2
)
Like dl_hpux, like dl_dld.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 25 Oct 2001 05:14:17 +0000
(
05:14
+0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 25 Oct 2001 05:14:17 +0000
(
05:14
+0000)
p4raw-id: //depot/perl@12637
ext/DynaLoader/dl_dld.xs
patch
|
blob
|
history
diff --git
a/ext/DynaLoader/dl_dld.xs
b/ext/DynaLoader/dl_dld.xs
index
a78af2e
..
101efac
100644
(file)
--- 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