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
authorYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 09:14:26 +0000 (11:14 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 11:28:01 +0000 (13:28 +0200)
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);
                 && ckWARN(WARN_UNINITIALIZED)
                 )
                 report_uninit(left);
-           sv_setpvs(left, "");
+            SvPVCLEAR(left);
        }
         else {
             SvPV_force_nomg_nolen(left);
        }
         else {
             SvPV_force_nomg_nolen(left);