projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Mopup for #6204.
[p5sagit/p5-mst-13.2.git]
/
perlapi.c
diff --git
a/perlapi.c
b/perlapi.c
index
d3e2482
..
396e101
100755
(executable)
--- a/
perlapi.c
+++ b/
perlapi.c
@@
-4025,6
+4025,13
@@
Perl_sys_intern_init(pTHXo)
# if defined(LEAKTEST)
# endif
#endif
+
+#undef Perl_lock
+SV*
+Perl_lock(pTHXo_ SV *sv)
+{
+ return ((CPerlObj*)pPerl)->Perl_lock(sv);
+}
#if defined(PERL_OBJECT)
#endif