X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;fp=Types.xs;h=d655c855e7b16a4e9031eec842547c1d7ff1e3b1;hp=7629733c1085416c1312e3f3b9d263a753748107;hb=403b8b4a1f84772b9f78b25ada4c4e5889a47334;hpb=cd9545fb411da4e5b69ad7fd2f43f8ea879d3ee3

diff --git a/Types.xs b/Types.xs
index 7629733..d655c85 100644
--- a/Types.xs
+++ b/Types.xs
@@ -316,9 +316,9 @@ static OP *lt_pp_padrange(pTHX) {
   count = PL_op->op_private & OPpPADRANGE_COUNTMASK;
 
   for (i = 0, p = roi.padxv_start; i < count && p; ++i, p = p->op_next) {
+   lt_op_padxv_info oi;
    while (p->op_type == OP_NULL)
     p = p->op_next;
-   lt_op_padxv_info oi;
    if (p->op_type == OP_PADSV && lt_padxv_map_fetch(p, &oi))
     lt_op_padxv_info_call(&oi, PAD_SV(base + i));
   }