diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-09-26 12:56:47 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:08 -0700 |
| commit | a15456ded8f3d1fb2d67e9e3027b5766cc1c419f (patch) | |
| tree | 86c9ca52d9348bc2218b1fee299d2ca74ba3892c /embed.fnc | |
| parent | 70b71ec84c6ce44565d910f531ad659af12a4c35 (diff) | |
| download | perl-a15456ded8f3d1fb2d67e9e3027b5766cc1c419f.tar.gz | |
pp.c & sv.c: pp_ref UTF8 and null cleanup.
This adds a new function to sv.c, sv_ref, which is a nul-and-UTF8
clean version of sv_reftype. pp_ref now uses that.
sv_ref() not only returns the SV, but also takes in an SV
to modify, so we can say both sv_ref(TARG, obj, TRUE); and
sv = sv_ref(NULL, obj, TRUE);
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1290,6 +1290,7 @@ 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 |NN const SV *const sv|const int ob +pd |SV* |sv_ref |NULLOK SV *dst|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 Apd |void |sv_reset |NN const char* s|NULLOK HV *const stash |