develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33668 - branches/pdd22io_part2/src/io

From:
allison
Date:
December 8, 2008 13:18
Subject:
[svn:parrot] r33668 - branches/pdd22io_part2/src/io
Message ID:
20081208211830.B04BFCB9AF@x12.develooper.com
Author: allison
Date: Mon Dec  8 13:18:26 2008
New Revision: 33668

Modified:
   branches/pdd22io_part2/src/io/win32.c

Log:
[pdd22io] Setting filehandle flags in 'fdopen' also.


Modified: branches/pdd22io_part2/src/io/win32.c
==============================================================================
--- branches/pdd22io_part2/src/io/win32.c	(original)
+++ branches/pdd22io_part2/src/io/win32.c	Mon Dec  8 13:18:26 2008
@@ -268,8 +268,10 @@
 
     if (PMC_IS_NULL(filehandle))
         io = Parrot_io_new_pmc(interp, flags);
-    else
+    else {
         io = filehandle;
+        Parrot_io_set_flags(interp, io, flags);
+    }
 
     Parrot_io_set_os_handle(interp, io, fd);
     return io;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About