fix a readline-related build failure on g++. kid51++ for the catch

parrot · Aug 3, 2012 · 1705fc4 · 1705fc4
1 parent dd4ce1b
commit 1705fc4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/pmc/socket.pmc b/src/pmc/socket.pmc
@@ -424,8 +424,9 @@ present, it is used to determine line endings instead of the default C<\n>.
     METHOD readline(STRING *delimiter    :optional,
                     INTVAL has_delimiter :opt_flag) {
 
-        INTVAL delim = has_delimiter ? Parrot_str_indexed(INTERP, delimiter, 0) : '\n';
-        STRING *result = Parrot_io_readline_s(INTERP, SELF, delim);
+        if (!has_delimiter)
+            delimiter = PARROT_SOCKET(SELF)->record_separator;
+        STRING *result = Parrot_io_readline_s(INTERP, SELF, delimiter);
         RETURN(STRING *result);
     }