This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_hot.c: use new SvPVCLEAR and constant string friendly macros
[perl5.git] / pp_hot.c
index ee908c5..ab59096 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -289,7 +289,7 @@ PP(pp_concat)
                 && ckWARN(WARN_UNINITIALIZED)
                 )
                 report_uninit(left);
-           sv_setpvs(left, "");
+            SvPVCLEAR(left);
        }
         else {
             SvPV_force_nomg_nolen(left);