[PATCH] Small I/O fix

[Jeff]

read(s,i|ic,i|ic) was setting the length of the string to the selected
length no matter what.

--
--Jeff
<[EMAIL PROTECTED]>


diff -ru parrot/core.ops parrot_orig/core.ops
--- parrot/core.ops     Tue Nov  6 11:14:25 2001
+++ parrot_orig/core.ops        Wed Nov  7 20:53:05 2001
@@ -199,7 +199,7 @@
   string_destroy($1);
   tmp = malloc(len + 1);
   read($2, tmp, len);
-  s = string_make(interpreter, tmp, len, 0, 0, 0);
+  s = string_make(interpreter, tmp, strlen(tmp), 0, 0, 0);
   $1 = s;
   free(tmp);
 }