Change 23199 by [EMAIL PROTECTED] on 2004/08/06 11:57:59
Another small clean-up following changes #23190 and #23198
Affected files ...
... //depot/perl/gv.c#206 edit
Differences ...
==== //depot/perl/gv.c#206 (text) ====
Index: perl/gv.c
--- perl/gv.c#205~23198~ Fri Aug 6 03:06:46 2004
+++ perl/gv.c Fri Aug 6 04:57:59 2004
@@ -1063,9 +1063,9 @@
SV *sv = GvSV(gv);
if (!sv_derived_from(PL_patchlevel, "version"))
(void *)upg_version(PL_patchlevel);
- sv = vnumify(PL_patchlevel);
- SvREADONLY_on(sv);
- GvSV(gv) = sv;
+ GvSV(gv) = vnumify(PL_patchlevel);
+ SvREADONLY_on(GvSV(gv));
+ SvREFCNT_dec(sv);
}
break;
case '\026': /* $^V */
End of Patch.
