Fix leak introduced by change #32873, thanks to Nicholas

p4raw-link: @32873 on //depot/perl: 3a28f3fb1bfd44e4e3dfe6842af867c8c1c9de28

p4raw-id: //depot/perl@32915

diff --git a/pp_hot.c b/pp_hot.c
index d391272..a24f802 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -733,7 +733,7 @@ PP(pp_print)
        ENTER;
        if( PL_op->op_type == OP_SAY ) {
                /* local $\ = "\n" */
-               SAVESPTR(PL_ors_sv);
+               SAVEGENERICSV(PL_ors_sv);
                PL_ors_sv = newSVpvs("\n");
        }
        call_method("PRINT", G_SCALAR);