add sv_reftype_len() and make sv_reftype() be a wrapper for it

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 47ca611..a443e9a 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1199,6 +1199,7 @@ Apd       |char*  |sv_pvbyten_force|NN SV *const sv|NULLOK STRLEN *const lp
 Apd    |char*  |sv_recode_to_utf8      |NN SV* sv|NN SV *encoding
 Apd    |bool   |sv_cat_decode  |NN SV* dsv|NN SV *encoding|NN SV *ssv|NN int *offset \
                                |NN char* tstr|int tlen
+ApdR   |const char*    |sv_reftype_len |NN const SV *const sv|const int ob|NN STRLEN *const ret_len
 ApdR   |const char*    |sv_reftype     |NN const SV *const sv|const int ob
 Apd    |void   |sv_replace     |NN SV *const sv|NN SV *const nsv
 Apd    |void   |sv_report_used