extra code in pp_concat, Take 2

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 9d31e81..300ea6d 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -361,8 +361,7 @@ PP(pp_backtick)
                }
                XPUSHs(sv_2mortal(sv));
                if (SvLEN(sv) - SvCUR(sv) > 20) {
-                   SvLEN_set(sv, SvCUR(sv)+1);
-                   SvPV_renew(sv, SvLEN(sv));
+                   SvPV_shrink_to_cur(sv);
                }
                SvTAINTED_on(sv);
            }