diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-04-15 09:05:26 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-15 21:46:27 +0000 |
| commit | f044d0d1cebf908527bb010d8157554092773e3b (patch) | |
| tree | c5be4bfca839ba4b4d96f78d725498c811e0e3c4 | |
| parent | 8eea0bff6059ac3faeb98a77b8800104ef51fb78 (diff) | |
| download | perl-f044d0d1cebf908527bb010d8157554092773e3b.tar.gz | |
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
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index a9cb4ccbf9..550ea4dfee 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)); |