From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 15 Apr 2002 14:05:26 +0000 (-0500)
Subject: universal.c:XS_Internals_hv_clear_placeholders is too long
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f044d0d1cebf908527bb010d8157554092773e3b;p=p5sagit%2Fp5-mst-13.2.git

universal.c:XS_Internals_hv_clear_placeholders is too long
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020415125256.0332ede0@exchi01>

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

diff --git a/universal.c b/universal.c
index a9cb4cc..550ea4d 100644
--- a/universal.c
+++ b/universal.c
@@ -169,7 +169,7 @@ XS(XS_utf8_unicode_to_native);
 XS(XS_utf8_native_to_unicode);
 XS(XS_Internals_SvREADONLY);
 XS(XS_Internals_SvREFCNT);
-XS(XS_Internals_hv_clear_placeholders);
+XS(XS_Internals_hv_clear_placehold);
 
 void
 Perl_boot_core_UNIVERSAL(pTHX)
@@ -189,7 +189,7 @@ Perl_boot_core_UNIVERSAL(pTHX)
     newXSproto("Internals::SvREADONLY",XS_Internals_SvREADONLY, file, "\\[$%@];$");
     newXSproto("Internals::SvREFCNT",XS_Internals_SvREFCNT, file, "\\[$%@];$");
     newXSproto("Internals::hv_clear_placeholders",
-               XS_Internals_hv_clear_placeholders, file, "\\%");
+               XS_Internals_hv_clear_placehold, file, "\\%");
 }
 
 
@@ -505,7 +505,7 @@ XS(XS_Internals_SvREFCNT)	/* This is dangerous stuff. */
 
 /* Maybe this should return the number of placeholders found in scalar context,
    and a list of them in list context.  */
-XS(XS_Internals_hv_clear_placeholders)
+XS(XS_Internals_hv_clear_placehold)
 {
     dXSARGS;
     HV *hv = (HV *) SvRV(ST(0));