Index: io/io_win32.c
===================================================================
RCS file: /cvs/public/parrot/io/io_win32.c,v
retrieving revision 1.24
diff -u -r1.24 io_win32.c
--- io/io_win32.c	21 Jul 2003 18:00:45 -0000	1.24
+++ io/io_win32.c	31 Jul 2003 11:06:04 -0000
@@ -97,23 +97,23 @@
 {
     HANDLE h;
     if ((h = GetStdHandle(STD_INPUT_HANDLE)) != INVALID_HANDLE_VALUE) {
-        PIO_STDIN(interpreter) =
-            PIO_win32_fdopen(interpreter, layer, h, PIO_F_READ);
+        PIO_STDIN(interpreter) = new_io_pmc(interpreter, 
+            PIO_win32_fdopen(interpreter, layer, h, PIO_F_READ));
     }
     else {
         return -1;
     }
     if ((h = GetStdHandle(STD_OUTPUT_HANDLE))
         != INVALID_HANDLE_VALUE) {
-        PIO_STDOUT(interpreter) =
-            PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE);
+        PIO_STDOUT(interpreter) = new_io_pmc(interpreter,
+            PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE));
     }
     else {
         return -2;
     }
     if ((h = GetStdHandle(STD_ERROR_HANDLE)) != INVALID_HANDLE_VALUE) {
-        PIO_STDERR(interpreter) =
-            PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE);
+        PIO_STDERR(interpreter) = new_io_pmc(interpreter,
+            PIO_win32_fdopen(interpreter, layer, h, PIO_F_WRITE));
     }
     else {
         return -3;

Reply via email to