summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-07-26 06:25:36 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-08-22 08:28:10 -0700
commit2e9e14ddec173be05687c2df560a22b6721eae37 (patch)
tree2b02750ec5818d675d406e1a0301b7e201b7e6ac /mg.c
parentd4a823b39f889d5a3c4b03856f90f4d11577e5a0 (diff)
downloadperl-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.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/mg.c b/mg.c
index 305817c76f..f18a98a33a 100644
--- a/mg.c
+++ b/mg.c
@@ -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;
}