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

[allison]

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);
     }