Given that sv_nosharing performs the same function as sv_nolocking

and sv_unnolocking (ie sweet FA), we might as well use the 1 function
to initialise all 3 variables, and elimiate the other two.
For some reason all 3 are listed as being in the public API. Daft.

p4raw-id: //depot/perl@25906

1 files changed, 37 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index d8a84b5ba2..be61f8ec4f 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -795,6 +795,43 @@ Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep)
 }
 
 /*
+=for apidoc sv_nolocking
+
+Dummy routine which "locks" an SV when there is no locking module present.
+Exists to avoid test for a NULL function pointer and because it could
+potentially warn under some level of strict-ness.
+
+"Superseded" by sv_nosharing().
+
+=cut
+*/
+
+void
+Perl_sv_nolocking(pTHX_ SV *sv)
+{
+    PERL_UNUSED_ARG(sv);
+}
+
+
+/*
+=for apidoc sv_nounlocking
+
+Dummy routine which "unlocks" an SV when there is no locking module present.
+Exists to avoid test for a NULL function pointer and because it could
+potentially warn under some level of strict-ness.
+
+"Superseded" by sv_nosharing().
+
+=cut
+*/
+
+void
+Perl_sv_nounlocking(pTHX_ SV *sv)
+{
+    PERL_UNUSED_ARG(sv);
+}
+
+/*
  * Local variables:
  * c-indentation-style: bsd
  * c-basic-offset: 4