From 617ebe6d2a2d3d9deb4efd8ca7cef6fa93d03cf1 Mon Sep 17 00:00:00 2001
From: Fernando Brito <email@fernandobrito.com>
Date: Wed, 1 Dec 2010 01:54:46 -0300
Subject: [PATCH] Make Parrot_io_readline throw exception on Socket

---
 src/io/api.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/io/api.c b/src/io/api.c
index 52aeb33a2a..de3ee44c37 100644
--- 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;