Fix a declaration-after-code error

[perl/modules/Lexical-Types.git] / Types.xs

diff --git a/Types.xs b/Types.xs
index 7629733c1085416c1312e3f3b9d263a753748107..d655c855e7b16a4e9031eec842547c1d7ff1e3b1 100644 (file)
--- 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));
   }