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

[svn:parrot] r34653 - trunk/src/io

From:
allison
Date:
December 30, 2008 10:31
Subject:
[svn:parrot] r34653 - trunk/src/io
Message ID:
20081230183131.8FD60CB9FA@x12.develooper.com
Author: allison
Date: Tue Dec 30 10:31:30 2008
New Revision: 34653

Modified:
   trunk/src/io/filehandle.c

Log:
[io] Setting append mode also sets write mode.


Modified: trunk/src/io/filehandle.c
==============================================================================
--- trunk/src/io/filehandle.c	(original)
+++ trunk/src/io/filehandle.c	Tue Dec 30 10:31:30 2008
@@ -62,6 +62,7 @@
                 break;
             case 'a':
                 flags |= PIO_F_APPEND;
+                flags |= PIO_F_WRITE;
                 if ((flags & PIO_F_TRUNC)) /* don't truncate if appending */
                     flags &= ~PIO_F_TRUNC;
                 break;



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