diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-07-26 06:25:36 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-22 08:28:10 -0700 |
commit | 2e9e14ddec173be05687c2df560a22b6721eae37 (patch) | |
tree | 2b02750ec5818d675d406e1a0301b7e201b7e6ac /mg.c | |
parent | d4a823b39f889d5a3c4b03856f90f4d11577e5a0 (diff) | |
download | perl-2e9e14ddec173be05687c2df560a22b6721eae37.tar.gz |
Remove null check from mg.c:magic_getvec
lsv can never be null here. This null check has been here since
vec’s get-magic was added in ae389c8a or 6ff81951f7.
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -2284,10 +2284,7 @@ Perl_magic_getvec(pTHX_ SV *sv, MAGIC *mg) PERL_ARGS_ASSERT_MAGIC_GETVEC; PERL_UNUSED_ARG(mg); - if (lsv) - sv_setuv(sv, do_vecget(lsv, LvTARGOFF(sv), LvTARGLEN(sv))); - else - SvOK_off(sv); + sv_setuv(sv, do_vecget(lsv, LvTARGOFF(sv), LvTARGLEN(sv))); return 0; } |