X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.c;h=ea360c3f6ec9e6013b12aa24139418f21e533078;hb=438cc6089d922e42fd6635c1b8212ad034402745;hp=eeda889989e10c5163ad6d1a300e7a8c7de44c83;hpb=27dd2420592a44007a8d1534563f52fae745a50a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.c b/sv.c
index eeda889..ea360c3 100644
--- a/sv.c
+++ b/sv.c
@@ -6349,25 +6349,6 @@ Perl_sv_setref_iv(pTHX_ SV *rv, const char *classname, IV iv)
 }
 
 /*
-=for apidoc sv_setref_uv
-
-Copies an unsigned integer into a new SV, optionally blessing the SV.  The C<rv>
-argument will be upgraded to an RV.  That RV will be modified to point to
-the new SV.  The C<classname> argument indicates the package for the
-blessing.  Set C<classname> to C<Nullch> to avoid the blessing.  The new SV
-will be returned and will have a reference count of 1.
-
-=cut
-*/
-
-SV*
-Perl_sv_setref_uv(pTHX_ SV *rv, const char *classname, UV uv)
-{
-    sv_setuv(newSVrv(rv,classname), uv);
-    return rv;
-}
-
-/*
 =for apidoc sv_setref_nv
 
 Copies a double into a new SV, optionally blessing the SV.  The C<rv>