Avoid using space to create 2 functions just to force mathoms to be

linked. Instead, force the link via the perl interpreter structure
via a function pointer that gets replaced at run time anyway.

p4raw-id: //depot/perl@26990

1 files changed, 0 insertions, 9 deletions

diff --git a/perl.c b/perl.c
index 68c597b00b..82960f3a37 100644
--- a/perl.c
+++ b/perl.c
@@ -137,15 +137,6 @@ static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 #endif
 #endif
 
-#ifndef NO_MATHOMS
-/* This reference ensures that the mathoms are linked with perl */
-extern void Perl_mathoms(void);
-void Perl_mathoms_ref(void);
-void Perl_mathoms_ref(void) {
-    Perl_mathoms();
-}
-#endif
-
 static void
 S_init_tls_and_interp(PerlInterpreter *my_perl)
 {