X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.c;h=396e101268493366bb0d1a6968bd0b3b8b626577;hb=d11915b82a23265566d9643e95935294732103a8;hp=d3e2482601b6dc396ebc729b2d9614f2afae76af;hpb=b8b4c9f3cf6ef09c878a80ff97526a69902a44ca;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.c b/perlapi.c
index d3e2482..396e101 100755
--- 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