diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-06-08 15:21:24 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-06-08 15:21:24 +0000 |
| commit | 86aa3d53944626afcd8ef8309b4b4aa32f7968c9 (patch) | |
| tree | fb9d95f6cd875bb15d919be60bffc7e76ee3aeb9 | |
| parent | d2f50e7fd8ced00f582fd5974d9ab13e4483aa17 (diff) | |
| download | perl-86aa3d53944626afcd8ef8309b4b4aa32f7968c9.tar.gz | |
Make symbols short enough for VMS after #31341.
p4raw-id: //depot/perl@31358
| -rw-r--r-- | universal.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/universal.c b/universal.c index 36b9807b17..01e2fe46a4 100644 --- a/universal.c +++ b/universal.c @@ -239,8 +239,8 @@ XS(XS_Tie_Hash_NamedCapture_STORE); XS(XS_Tie_Hash_NamedCapture_DELETE); XS(XS_Tie_Hash_NamedCapture_CLEAR); XS(XS_Tie_Hash_NamedCapture_EXISTS); -XS(XS_Tie_Hash_NamedCapture_FIRSTKEY); -XS(XS_Tie_Hash_NamedCapture_NEXTKEY); +XS(XS_Tie_Hash_NamedCapture_FIRSTK); +XS(XS_Tie_Hash_NamedCapture_NEXTK); XS(XS_Tie_Hash_NamedCapture_SCALAR); XS(XS_Tie_Hash_NamedCapture_flags); @@ -302,8 +302,8 @@ Perl_boot_core_UNIVERSAL(pTHX) newXS("Tie::Hash::NamedCapture::DELETE", XS_Tie_Hash_NamedCapture_DELETE, file); newXS("Tie::Hash::NamedCapture::CLEAR", XS_Tie_Hash_NamedCapture_CLEAR, file); newXS("Tie::Hash::NamedCapture::EXISTS", XS_Tie_Hash_NamedCapture_EXISTS, file); - newXS("Tie::Hash::NamedCapture::FIRSTKEY", XS_Tie_Hash_NamedCapture_FIRSTKEY, file); - newXS("Tie::Hash::NamedCapture::NEXTKEY", XS_Tie_Hash_NamedCapture_NEXTKEY, file); + newXS("Tie::Hash::NamedCapture::FIRSTKEY", XS_Tie_Hash_NamedCapture_FIRSTK, file); + newXS("Tie::Hash::NamedCapture::NEXTKEY", XS_Tie_Hash_NamedCapture_NEXTK, file); newXS("Tie::Hash::NamedCapture::SCALAR", XS_Tie_Hash_NamedCapture_SCALAR, file); newXS("Tie::Hash::NamedCapture::flags", XS_Tie_Hash_NamedCapture_flags, file); } @@ -1345,7 +1345,7 @@ XS(XS_Tie_Hash_NamedCapture_EXISTS) return; } -XS(XS_Tie_Hash_NamedCapture_FIRSTKEY) +XS(XS_Tie_Hash_NamedCapture_FIRSTK) { dVAR; dXSARGS; @@ -1378,7 +1378,7 @@ XS(XS_Tie_Hash_NamedCapture_FIRSTKEY) } -XS(XS_Tie_Hash_NamedCapture_NEXTKEY) +XS(XS_Tie_Hash_NamedCapture_NEXTK) { dVAR; dXSARGS; |