… | |
… | |
324 | |
324 | |
325 | ++enc->depth; |
325 | ++enc->depth; |
326 | |
326 | |
327 | encode_uint (enc, MAJOR_ARRAY, len + 1); |
327 | encode_uint (enc, MAJOR_ARRAY, len + 1); |
328 | |
328 | |
|
|
329 | if (SvMAGICAL (av)) |
329 | for (i = 0; i <= len; ++i) |
330 | for (i = 0; i <= len; ++i) |
330 | { |
331 | { |
331 | SV **svp = av_fetch (av, i, 0); |
332 | SV **svp = av_fetch (av, i, 0); |
332 | encode_sv (enc, svp ? *svp : &PL_sv_undef); |
333 | encode_sv (enc, svp ? *svp : &PL_sv_undef); |
333 | } |
334 | } |
|
|
335 | else |
|
|
336 | for (i = 0; i <= len; ++i) |
|
|
337 | encode_sv (enc, AvARRAY (av)[i]); |
334 | |
338 | |
335 | --enc->depth; |
339 | --enc->depth; |
336 | } |
340 | } |
337 | |
341 | |
338 | static void |
342 | static void |