… | |
… | |
143 | { |
143 | { |
144 | HE *he; |
144 | HE *he; |
145 | |
145 | |
146 | while ((he = hv_iternext ((HV *)sv))) |
146 | while ((he = hv_iternext ((HV *)sv))) |
147 | if (HeVAL (he) == targ) |
147 | if (HeVAL (he) == targ) |
148 | res_pair (form ("the member '%.*s' of", HeKLEN (he), HeKEY (he))); |
148 | res_pair (form ("the hash member '%.*s' of", HeKLEN (he), HeKEY (he))); |
149 | } |
149 | } |
150 | |
150 | |
151 | break; |
151 | break; |
152 | |
152 | |
153 | case SVt_PVCV: |
153 | case SVt_PVCV: |
… | |
… | |
226 | { |
226 | { |
227 | MAGIC *mg = mg_find (sv, PERL_MAGIC_defelem); |
227 | MAGIC *mg = mg_find (sv, PERL_MAGIC_defelem); |
228 | |
228 | |
229 | if (mg && mg->mg_obj) |
229 | if (mg && mg->mg_obj) |
230 | res_pair (form ("the target for the lvalue hash element '%.*s',", |
230 | res_pair (form ("the target for the lvalue hash element '%.*s',", |
231 | SvCUR (mg->mg_obj), SvPV_nolen (mg->mg_obj))); |
231 | (int)SvCUR (mg->mg_obj), SvPV_nolen (mg->mg_obj))); |
232 | else |
232 | else |
233 | res_pair (form ("the target for the lvalue array element #%d,", LvTARGOFF (sv))); |
233 | res_pair (form ("the target for the lvalue array element #%d,", LvTARGOFF (sv))); |
234 | } |
234 | } |
235 | else |
235 | else |
236 | res_pair (form ("an lvalue reference target (type '%c', ofs %d, len %d),", |
236 | res_pair (form ("an lvalue reference target (type '%c', ofs %d, len %d),", |