X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.c;h=f897146b6fa71060da5deeb21b828124b46c3de9;hb=c13fdd862cdcd2a9001523a3b81e435228302b74;hp=d57a5006dc752206e11f05e6b992e5b3a1754237;hpb=9b94d1ddc3fee7ce145aed1662eaa6ce880eeb97;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.c b/perlapi.c
old mode 100644
new mode 100755
index d57a500..f897146
--- a/perlapi.c
+++ b/perlapi.c
@@ -3301,6 +3301,13 @@ Perl_dump_mstats(pTHXo_ char* s)
 {
     ((CPerlObj*)pPerl)->Perl_dump_mstats(s);
 }
+
+#undef  Perl_get_mstats
+int
+Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level)
+{
+    return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level);
+}
 #endif
 
 #undef  Perl_safesysmalloc