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

[svn:parrot] r34595 - branches/pdd22io_part3/src/pmc

From:
allison
Date:
December 29, 2008 17:31
Subject:
[svn:parrot] r34595 - branches/pdd22io_part3/src/pmc
Message ID:
20081230013143.96F6FCB9FA@x12.develooper.com
Author: allison
Date: Mon Dec 29 17:31:42 2008
New Revision: 34595

Modified:
   branches/pdd22io_part3/src/pmc/stringhandle.pmc

Log:
[pdd22io] Store the StringHandle mode converted to integer flags too.


Modified: branches/pdd22io_part3/src/pmc/stringhandle.pmc
==============================================================================
--- branches/pdd22io_part3/src/pmc/stringhandle.pmc	(original)
+++ branches/pdd22io_part3/src/pmc/stringhandle.pmc	Mon Dec 29 17:31:42 2008
@@ -156,6 +156,7 @@
     METHOD open(STRING *filename :optional, INTVAL got_filename :opt_flag,
                 STRING *mode :optional, INTVAL got_mode :opt_flag) {
         STRING *open_mode, *old_string, *new_string, *encoding;
+        INTVAL flags;
 
         GET_ATTR_stringhandle(INTERP, SELF, old_string);
         if (!STRING_IS_NULL(old_string))
@@ -186,6 +187,9 @@
             SET_ATTR_mode(INTERP, SELF, open_mode);
         }
 
+        flags = Parrot_io_parse_open_flags(interp, open_mode);
+        SET_ATTR_flags(INTERP, SELF, flags);
+
         RETURN(PMC *SELF);
     }
 



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