diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-14 13:29:22 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-14 14:34:28 +0100 |
| commit | 8cf6f931c54936a38eedd3d17d5fa1d5af1b9009 (patch) | |
| tree | d1454e028f6b92f0458daaf6522aac4117323a00 /universal.c | |
| parent | 17b8ae88c658cb5fe05998ab824e6c02cfba7dcd (diff) | |
| download | perl-8cf6f931c54936a38eedd3d17d5fa1d5af1b9009.tar.gz | |
Convert lib/Tie/Hash/NamedCapture.pm to an XS module in ext/
Initially move only Tie::Hash::NamedCapture::flags from universal.c to it.
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/universal.c b/universal.c index 58d00e07cc..2cfb241bcb 100644 --- a/universal.c +++ b/universal.c @@ -1366,20 +1366,6 @@ XS(XS_Tie_Hash_NamedCapture_SCALAR) S_named_capture_common(aTHX_ cv, FALSE, 1, FALSE, RXapif_SCALAR); } -XS(XS_Tie_Hash_NamedCapture_flags) -{ - dVAR; - dXSARGS; - - if (items != 0) - croak_xs_usage(cv, ""); - - mXPUSHu(RXapif_ONE); - mXPUSHu(RXapif_ALL); - PUTBACK; - return; -} - struct xsub_details { const char *name; XSUBADDR_t xsub; @@ -1438,7 +1424,6 @@ struct xsub_details details[] = { {"Tie::Hash::NamedCapture::FIRSTKEY", XS_Tie_Hash_NamedCapture_FIRSTK, NULL}, {"Tie::Hash::NamedCapture::NEXTKEY", XS_Tie_Hash_NamedCapture_NEXTK, NULL}, {"Tie::Hash::NamedCapture::SCALAR", XS_Tie_Hash_NamedCapture_SCALAR, NULL}, - {"Tie::Hash::NamedCapture::flags", XS_Tie_Hash_NamedCapture_flags, NULL} }; void |