4 files changed, 0 insertions, 32 deletions
diff --git a/embed.fnc b/embed.fnc
index 8f1255d947..3f7040bed0 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -421,9 +421,6 @@ ApR	|I32	|dowantarray
 Ap	|void	|dump_all
 p	|void	|dump_all_perl	|bool justperl
 Ap	|void	|dump_eval
-#if defined(DUMP_FDS)
-Ap	|void	|dump_fds	|NN char* s
-#endif
 Ap	|void	|dump_form	|NN const GV* gv
 Ap	|void	|gv_dump	|NN GV* gv
 Ap	|void	|op_dump	|NN const OP *o
diff --git a/embed.h b/embed.h
index 937f7ec7cc..eade4a4015 100644
--- a/embed.h
+++ b/embed.h
@@ -758,9 +758,6 @@
 #define pad_setsv(a,b)		Perl_pad_setsv(aTHX_ a,b)
 #define pad_sv(a)		Perl_pad_sv(aTHX_ a)
 #endif
-#if defined(DUMP_FDS)
-#define dump_fds(a)		Perl_dump_fds(aTHX_ a)
-#endif
 #if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
 #define csighandler		Perl_csighandler
 #endif
diff --git a/proto.h b/proto.h
index a9963fc8a8..3a2d46a6cb 100644
--- a/proto.h
+++ b/proto.h
@@ -5329,13 +5329,6 @@ PERL_CALLCONV void	Perl_dump_sv_child(pTHX_ SV *sv)
 	assert(sv)
 
 #endif
-#if defined(DUMP_FDS)
-PERL_CALLCONV void	Perl_dump_fds(pTHX_ char* s)
-			__attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_DUMP_FDS	\
-	assert(s)
-
-#endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 PERL_CALLCONV I32	Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp)
 			__attribute__nonnull__(pTHX_2)
diff --git a/util.c b/util.c
index 6a499f188a..1e3b3b98e2 100644
--- a/util.c
+++ b/util.c
@@ -2507,25 +2507,6 @@ Perl_my_fork(void)
 #endif /* HAS_FORK */
 }
 
-#ifdef DUMP_FDS
-void
-Perl_dump_fds(pTHX_ const char *const s)
-{
-    int fd;
-    Stat_t tmpstatbuf;
-
-    PERL_ARGS_ASSERT_DUMP_FDS;
-
-    PerlIO_printf(Perl_debug_log,"%s", s);
-    for (fd = 0; fd < 32; fd++) {
-	if (PerlLIO_fstat(fd,&tmpstatbuf) >= 0)
-	    PerlIO_printf(Perl_debug_log," %d",fd);
-    }
-    PerlIO_printf(Perl_debug_log,"\n");
-    return;
-}
-#endif	/* DUMP_FDS */
-
 #ifndef HAS_DUP2
 int
 dup2(int oldfd, int newfd)