summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-09-30 00:07:47 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-10-01 12:51:57 -0700
commit0d3361061f711b74d2c4870d5539c31071de0df1 (patch)
treefff16dc4445f42fbcc4d8d73285391b62c23a074 /mg.c
parent307e609aa9d3524c8d9d44eb54e05004f9404882 (diff)
downloadperl-0d3361061f711b74d2c4870d5539c31071de0df1.tar.gz
mg.c:magic_setsubstr: rmv redundante null check
This was added in commit 9bf12eaf4 to fix a crash, but it is not necessary any more, due to changes elsewhere.
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index d52973bdd9..fd06aa4040 100644
--- a/mg.c
+++ b/mg.c
@@ -2198,7 +2198,7 @@ Perl_magic_setsubstr(pTHX_ SV *sv, MAGIC *mg)
newtarglen = sv_len_utf8(sv);
SvUTF8_on(lsv);
}
- else if (lsv && SvUTF8(lsv)) {
+ else if (SvUTF8(lsv)) {
const char *utf8;
lvoff = sv_pos_u2b_flags(lsv, lvoff, &lvlen, SV_CONST_RETURN);
newtarglen = len;