Change 33308 by [EMAIL PROTECTED] on 2008/02/14 15:05:38
Fix leak when issuing new warning implemented by #33305
Affected files ...
... //depot/perl/op.c#987 edit
Differences ...
==== //depot/perl/op.c#987 (text) ====
Index: perl/op.c
--- perl/op.c#986~33306~ 2008-02-14 02:09:33.000000000 -0800
+++ perl/op.c 2008-02-14 07:05:38.000000000 -0800
@@ -1075,7 +1075,7 @@
no_bareword_allowed(o);
else {
if (ckWARN(WARN_VOID)) {
- SV* msv = Perl_newSVpvf(aTHX_ "a constant (%"SVf")", sv);
+ SV* msv = sv_2mortal(Perl_newSVpvf(aTHX_ "a constant (%"SVf")",
sv));
useless = SvPV_nolen(msv);
if (o->op_private & OPpCONST_ARYBASE)
useless = NULL;
End of Patch.
