concat interacts badly with magic

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 3322ff2..8a0483c 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -139,8 +139,9 @@ static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 
 #ifndef NO_MATHOMS
 /* This reference ensures that the mathoms are linked with perl */
-extern void Perl_mathoms();
-void Perl_mathoms_ref() {
+extern void Perl_mathoms(void);
+void Perl_mathoms_ref(void);
+void Perl_mathoms_ref(void) {
     Perl_mathoms();
 }
 #endif
@@ -1758,6 +1759,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef MYMALLOC
                             " MYMALLOC"
 #  endif
+#  ifdef NO_MATHOMS
+                            " NO_MATHOMS"
+#  endif
 #  ifdef PERL_DONT_CREATE_GVSV
                             " PERL_DONT_CREATE_GVSV"
 #  endif