projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Must Uppercase.
[p5sagit/p5-mst-13.2.git]
/
ext
/
DynaLoader
/
dl_hpux.xs
diff --git
a/ext/DynaLoader/dl_hpux.xs
b/ext/DynaLoader/dl_hpux.xs
index
ad04029
..
582c047
100644
(file)
--- a/
ext/DynaLoader/dl_hpux.xs
+++ b/
ext/DynaLoader/dl_hpux.xs
@@
-104,7
+104,7
@@
dl_find_symbol(libhandle, symbolname)
void *symaddr = NULL;
int status;
#ifdef __hp9000s300
- symbolname = form("_%s", symbolname);
+ symbolname = Perl_form_nocontext("_%s", symbolname);
#endif
DLDEBUG(2, PerlIO_printf(Perl_debug_log,
"dl_find_symbol(handle=%lx, symbol=%s)\n",