diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-08-25 12:03:42 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-08-25 12:03:56 +0200 |
| commit | e312a16a9a796750ffb4cabee5a48b7ff7030437 (patch) | |
| tree | 1a6f11b42bb1bc8b6c045ff9a600ba99032d22c9 /universal.c | |
| parent | 8d168aaa014262c7f93944b76b84de99af3c5513 (diff) | |
| download | perl-e312a16a9a796750ffb4cabee5a48b7ff7030437.tar.gz | |
restore Internals::hv_clear_placeholders for now
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/universal.c b/universal.c index e77fad3605..174003105f 100644 --- a/universal.c +++ b/universal.c @@ -627,6 +627,20 @@ XS(XS_Internals_SvREFCNT) /* This is dangerous stuff. */ } +XS(XS_Internals_hv_clear_placehold); /* prototype to pass -Wmissing-prototypes */ +XS(XS_Internals_hv_clear_placehold) +{ + dXSARGS; + + if (items != 1 || !SvROK(ST(0))) + croak_xs_usage(cv, "hv"); + else { + HV * const hv = MUTABLE_HV(SvRV(ST(0))); + hv_clear_placeholders(hv); + XSRETURN(0); + } +} + XS(XS_PerlIO_get_layers); /* prototype to pass -Wmissing-prototypes */ XS(XS_PerlIO_get_layers) { @@ -1002,6 +1016,7 @@ static const struct xsub_details details[] = { {"utf8::unicode_to_native", XS_utf8_unicode_to_native, NULL}, {"Internals::SvREADONLY", XS_Internals_SvREADONLY, "\\[$%@];$"}, {"Internals::SvREFCNT", XS_Internals_SvREFCNT, "\\[$%@];$"}, + {"Internals::hv_clear_placeholders", XS_Internals_hv_clear_placehold, "\\%"}, {"constant::_make_const", XS_constant__make_const, "\\[$@]"}, {"PerlIO::get_layers", XS_PerlIO_get_layers, "*;@"}, {"re::is_regexp", XS_re_is_regexp, "$"}, |