This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Scalar-List-Utils build on Windows; patch sent upstream
[perl5.git] / cpan / Scalar-List-Utils / ListUtil.xs
index a7cd20c..504c70e 100644 (file)
@@ -529,6 +529,8 @@ PPCODE:
 
     for(i = 0; i < items; i++) {
         SV *pair = args_copy[i];
+        AV *pairav;
+
         SvGETMAGIC(pair);
 
         if(SvTYPE(pair) != SVt_RV)
@@ -537,7 +539,7 @@ PPCODE:
             croak("Not an ARRAY reference at List::Util::unpack() argument %d", i);
 
         // TODO: assert pair is an ARRAY ref
-        AV *pairav = (AV *)SvRV(pair);
+        pairav = (AV *)SvRV(pair);
 
         EXTEND(SP, 2);