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.