From 789738ed9c41fd6d8c4bb2608e31c156cfe55fff Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Fri, 10 Jun 2022 10:56:07 -0600
Subject: Remove pod for non-existent functions

7008caa915ad99e650acf2aea40612b5e48b7ba2 removed several deprecated
functions, but did not remove all the pods thereof.
---
 mathoms.c | 19 -------------------
 1 file changed, 19 deletions(-)

(limited to 'mathoms.c')

diff --git a/mathoms.c b/mathoms.c
index 93bcccca09..3af8a21aca 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -815,25 +815,6 @@ Perl_is_utf8_char_buf(const U8 *buf, const U8* buf_end)
     return isUTF8_CHAR(buf, buf_end);
 }
 
-/*
-=for apidoc_section $pad
-=for apidoc pad_compname_type
-
-Looks up the type of the lexical variable at position C<po> in the
-currently-compiling pad.  If the variable is typed, the stash of the
-class to which it is typed is returned.  If not, C<NULL> is returned.
-
-Use L<perlintern/C<PAD_COMPNAME_TYPE>> instead.
-
-=cut
-*/
-
-HV *
-Perl_pad_compname_type(pTHX_ const PADOFFSET po)
-{
-    return PAD_COMPNAME_TYPE(po);
-}
-
 /* return ptr to little string in big string, NULL if not found */
 /* The original version of this routine was donated by Corey Satten. */
 
-- 
cgit v1.2.1