Gisle notes that SvRTRIM should also write a new '\0' at the end.

p4raw-id: //depot/perl@26781

diff --git a/mg.c b/mg.c
index 87cea48..603e8ac 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -647,6 +647,7 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
     while (len > 0 && isSPACE(p[len-1])) \
        --len; \
     SvCUR_set(sv, len); \
+    p[len] = '\0'; \
 } STMT_END
 
 int