diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-09-01 07:24:59 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-09-01 07:24:59 +0100 |
| commit | a77ac40c5b8111e15c16279ce494e3aafde2b18e (patch) | |
| tree | 75b6529b640b986b0f19390367d1d4b6b5d91604 /embed.fnc | |
| parent | 5230ff8e57b55d2bb859cf3281ebffac412f7686 (diff) | |
| download | perl-a77ac40c5b8111e15c16279ce494e3aafde2b18e.tar.gz | |
Refactor Perl_store_cop_label() to avoid exposing struct refcounted_he *.
Instead pass in a COP, as suggested by Ben Morrow. Also add length and flags
parameters, and remove the comment suggesting this change. The underlying
storage mechanism can honour length and UTF8/not, so there is no harm in
exposing this one level higher.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2382,8 +2382,8 @@ Apon |void |sys_term ApoM |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \ |NULLOK STRLEN *len|NULLOK U32 *flags : Only used in op.c -xpoM |struct refcounted_he *|store_cop_label \ - |NULLOK struct refcounted_he *const chain|NN const char *label +xpoM |void|store_cop_label \ + |NN COP *cop|NN const char *label|STRLEN len|U32 flags xpo |int |keyword_plugin_standard|NN char* keyword_ptr|STRLEN keyword_len|NN OP** op_ptr |