]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Fix a declaration-after-code error
authorVincent Pit <perl@profvince.com>
Mon, 9 Nov 2015 12:49:14 +0000 (10:49 -0200)
committerVincent Pit <perl@profvince.com>
Mon, 9 Nov 2015 12:49:14 +0000 (10:49 -0200)
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));
   }