diff options
| author | David Mitchell <davem@iabyn.com> | 2015-01-27 11:14:37 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2015-01-27 11:14:37 +0000 |
| commit | 48ee9c0e663bc9a2ffef5a0be5f6de6168985a20 (patch) | |
| tree | 3a9a35bdea39053ed557b247a412ad2b2079de7d /dump.c | |
| parent | 8b08c4b951d7e6689c8f58393e1615af86a573d2 (diff) | |
| download | perl-48ee9c0e663bc9a2ffef5a0be5f6de6168985a20.tar.gz | |
rename unop_aux_stringify to multideref_stringify
This function returns a string representation of the OP_MULTIDEREF op
(as used by the output of perl -Dt).
However, the stringification of a UNOP_AUX op is op-specific, and
hypothetical future UNOP_AUX-class ops will need their own functions.
So the current function name is misleading.
It should be safe to rename it, as it only been in since 5.21.7, and isn't
public.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2327,11 +2327,11 @@ S_append_gv_name(pTHX_ GV *gv, SV *out) /* return a temporary SV containing a stringified representation of - * the op_aux field of a UNOP_AUX op, associated with CV cv + * the op_aux field of a MULTIDEREF op, associated with CV cv */ SV* -Perl_unop_aux_stringify(pTHX_ const OP *o, CV *cv) +Perl_multideref_stringify(pTHX_ const OP *o, CV *cv) { UNOP_AUX_item *items = cUNOP_AUXo->op_aux; UV actions = items->uv; @@ -2345,7 +2345,7 @@ Perl_unop_aux_stringify(pTHX_ const OP *o, CV *cv) PAD *comppad = PadlistARRAY(padlist)[1]; #endif - PERL_ARGS_ASSERT_UNOP_AUX_STRINGIFY; + PERL_ARGS_ASSERT_MULTIDEREF_STRINGIFY; while (!last) { switch (actions & MDEREF_ACTION_MASK) { @@ -2498,7 +2498,7 @@ Perl_debop(pTHX_ const OP *o) case OP_MULTIDEREF: PerlIO_printf(Perl_debug_log, "(%-p)", - unop_aux_stringify(o, deb_curcv(cxstack_ix))); + multideref_stringify(o, deb_curcv(cxstack_ix))); break; default: |