diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-08-06 11:57:59 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2004-08-06 11:57:59 +0000 |
| commit | 7d54d38ea123279986bac06bc420bfdc4e2395fb (patch) | |
| tree | cac3c0441e9f14fc05eff137bc5508bce605bd95 /gv.c | |
| parent | f9be5ac81a1b4bd2859cd05fa3a616e17a46b37c (diff) | |
| download | perl-7d54d38ea123279986bac06bc420bfdc4e2395fb.tar.gz | |
Another small clean-up following changes #23190 and #23198
p4raw-link: @23190 on //depot/perl: d7aa53827cc12fdf8a697328df844e16aaa58287
p4raw-id: //depot/perl@23199
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1063,9 +1063,9 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) 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 */ |