Re: Configure -Dno_mathoms

Message-ID: <lrslug7glm.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@25991

1 files changed, 8 insertions, 0 deletions

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