Add MAD changes to pad code (new function Perl_pad_peg)

[p5sagit/p5-mst-13.2.git] / perlio.c

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)