Change 32915 by [EMAIL PROTECTED] on 2008/01/09 12:33:27

        Fix leak introduced by change #32873, thanks to Nicholas

Affected files ...

... //depot/perl/pp_hot.c#551 edit

Differences ...

==== //depot/perl/pp_hot.c#551 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#550~32900~    2008-01-08 09:10:29.000000000 -0800
+++ perl/pp_hot.c       2008-01-09 04:33:27.000000000 -0800
@@ -733,7 +733,7 @@
        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);
End of Patch.

Reply via email to