Steps along the road toward Win32 building again.

p4raw-id: //depot/perlio@10591

1 files changed, 4 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 242aa711a3..ac5ace88db 100644
--- a/perlio.c
+++ b/perlio.c
@@ -393,8 +393,10 @@ PerlIO_list_push(PerlIO_list_t *list,PerlIO_funcs *funcs,SV *arg)
   }
  p = &(list->array[list->cur++]);
  p->funcs = funcs;
- if ((p->arg = arg))
+ if ((p->arg = arg)) {
+  dTHX; 
   SvREFCNT_inc(arg);
+ }
 }
 
 
@@ -4015,3 +4017,4 @@ PerlIO_sprintf(char *s, int n, const char *fmt,...)
 
 
 
+