This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix leak introduced by change #32873, thanks to Nicholas
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 9 Jan 2008 12:33:27 +0000 (12:33 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 9 Jan 2008 12:33:27 +0000 (12:33 +0000)
p4raw-link: @32873 on //depot/perl: 3a28f3fb1bfd44e4e3dfe6842af867c8c1c9de28

p4raw-id: //depot/perl@32915

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);