From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 9 Jan 2008 12:33:27 +0000 (+0000)
Subject: Fix leak introduced by change #32873, thanks to Nicholas
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=084e50c2bb259c1fb5d99eed82d12400f31c6763;p=p5sagit%2Fp5-mst-13.2.git

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