Make Parrot_io_readline throw exception on Socket

parrot · Dec 1, 2010 · 617ebe6 · 617ebe6
1 parent da7f551
commit 617ebe6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/io/api.c b/src/io/api.c
@@ -512,6 +512,10 @@ Parrot_io_readline(PARROT_INTERP, ARGMOD(PMC *pmc))
         result = STRING_substr(interp, result, offset, read_length);
         SETATTR_StringHandle_read_offset(interp, pmc, newline_pos + 1);
     }
+    else if (pmc->vtable->base_type == enum_class_Socket) {
+        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_UNIMPLEMENTED,
+                "Parrot_io_readline on Socket not implemented");
+    }
     else
         Parrot_pcc_invoke_method_from_c_args(interp, pmc, CONST_STRING(interp, "readline"), "->S", &result);
     return result;