From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 23 Apr 2007 03:14:53 +0000 (+0000)
Subject: Shorten long symbols in mro.c to avoid name mangling on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5860d665910b046f6665f2f84e2a237a51bc322;p=p5sagit%2Fp5-mst-13.2.git

Shorten long symbols in mro.c to avoid name mangling on VMS.

p4raw-id: //depot/perl@31024
---

diff --git a/mro.c b/mro.c
index 81626ad..d0bef84 100644
--- a/mro.c
+++ b/mro.c
@@ -752,8 +752,8 @@ XS(XS_mro_set_mro);
 XS(XS_mro_get_mro);
 XS(XS_mro_get_isarev);
 XS(XS_mro_is_universal);
-XS(XS_mro_get_global_sub_generation);
-XS(XS_mro_invalidate_all_method_caches);
+XS(XS_mro_get_global_sub_gen);
+XS(XS_mro_invalidate_method_caches);
 XS(XS_mro_get_sub_generation);
 XS(XS_mro_method_changed_in);
 XS(XS_next_can);
@@ -771,8 +771,8 @@ Perl_boot_core_mro(pTHX)
     newXSproto("mro::get_mro", XS_mro_get_mro, file, "$");
     newXSproto("mro::get_isarev", XS_mro_get_isarev, file, "$");
     newXSproto("mro::is_universal", XS_mro_is_universal, file, "$");
-    newXSproto("mro::get_global_sub_generation", XS_mro_get_global_sub_generation, file, "");
-    newXSproto("mro::invalidate_all_method_caches", XS_mro_invalidate_all_method_caches, file, "");
+    newXSproto("mro::get_global_sub_generation", XS_mro_get_global_sub_gen, file, "");
+    newXSproto("mro::invalidate_all_method_caches", XS_mro_invalidate_method_caches, file, "");
     newXSproto("mro::get_sub_generation", XS_mro_get_sub_generation, file, "$");
     newXSproto("mro::method_changed_in", XS_mro_method_changed_in, file, "$");
     newXS("next::can", XS_next_can, file);
@@ -934,7 +934,7 @@ XS(XS_mro_is_universal)
         XSRETURN_NO;
 }
 
-XS(XS_mro_get_global_sub_generation)
+XS(XS_mro_get_global_sub_gen)
 {
     dVAR;
     dXSARGS;
@@ -948,7 +948,7 @@ XS(XS_mro_get_global_sub_generation)
     XSRETURN(1);
 }
 
-XS(XS_mro_invalidate_all_method_caches)
+XS(XS_mro_invalidate_method_caches)
 {
     dVAR;
     dXSARGS;