Fix code-before-declaration error (under VC++) from change #27334

p4raw-link: @27334 on //depot/perl: b37c2d43c8bccbefe3985273e9661833102148d0

p4raw-id: //depot/perl@27337

diff --git a/perlio.c b/perlio.c
index 2c352f1..0cb4922 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -601,9 +601,9 @@ void
 PerlIO_list_push(pTHX_ PerlIO_list_t *list, PerlIO_funcs *funcs, SV *arg)
 {
     dVAR;
+    PerlIO_pair_t *p;
     PERL_UNUSED_CONTEXT;
 
-    PerlIO_pair_t *p;
     if (list->cur >= list->len) {
        list->len += 8;
        if (list->array)