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

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

From:
allison
Date:
December 8, 2008 07:51
Subject:
[svn:parrot] r33656 - branches/pdd22io_part2/src/io
Message ID:
20081208155152.35C8DCB9AF@x12.develooper.com
Author: allison
Date: Mon Dec  8 07:51:51 2008
New Revision: 33656

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

Log:
[pdd22io] Actually set filehandle flags when opening an already existing
filehandle object.


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 07:51:51 2008
@@ -224,8 +224,10 @@
         PMC *io;
         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