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

[allison]

Author: allison
Date: Thu Nov 27 19:56:51 2008
New Revision: 33292

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

Log:
[pdd22io] Writing to a filehandle not opened for writing throws an exception.


Modified: branches/pdd22io_part2/src/io/api.c
==============================================================================
--- branches/pdd22io_part2/src/io/api.c (original)
+++ branches/pdd22io_part2/src/io/api.c Thu Nov 27 19:56:51 2008
@@ -441,11 +441,15 @@
     if (PMC_IS_NULL(pmc)
     || !VTABLE_isa(interp, pmc, CONST_STRING(interp, "FileHandle")))
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,
-            "Cannot put to non-IO PMC");
+            "Cannot write to non-IO PMC");
 
     if (Parrot_io_is_closed(interp, pmc))
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,
-            "Cannot put to a closed I/O handle");
+            "Cannot write to a closed filehandle");
+
+    if (!(Parrot_io_get_flags(interp, pmc) & PIO_F_WRITE))
+        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,
+            "Cannot write to a filehandle not opened for write");
 
     if (STRING_IS_NULL(s))
         return 0;