[SV #38945] Copy the entire buffer back when overwriting CR

1 files changed, 1 insertions, 1 deletions

diff --git a/read.c b/read.c
index 36d3a8fa..d6e6fcb1 100644
--- a/read.c
+++ b/read.c
@@ -2542,7 +2542,7 @@ readline (struct ebuffer *ebuf)
       if ((p - start) > 1 && p[-2] == '\r')
         {
           --p;
-          p[-1] = '\n';
+          memmove (p-1, p, strlen (p) + 1);
         }
 #endif