perl 4.0 patch 36: (combined patch)perl-4.0.36

Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.

1 files changed, 2 insertions, 3 deletions

diff --git a/str.c b/str.c
index 4b597ccd51..8af06ad1a8 100644
--- a/str.c
+++ b/str.c
@@ -863,11 +863,10 @@ screamer:
 	bp = buf;
 	while ((i = getc(fp)) != EOF && (*bp++ = i) != newline && bp < bpe) ;
 
-	*bp = '\0';
 	if (append)
-	    str_cat(str, buf);
+	    str_ncat(str, buf, bp - buf);
 	else
-	    str_set(str, buf);
+	    str_nset(str, buf, bp - buf);
 	if (i != EOF			/* joy */
 	    &&
 	    (i != newline