mg.c:magic_setsubstr: rmv redundante null check
authorFather Chrysostomos <sprout@cpan.org>
Sun, 30 Sep 2012 07:07:47 +0000 (00:07 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 1 Oct 2012 19:51:57 +0000 (12:51 -0700)
This was added in commit 9bf12eaf4 to fix a crash, but it is not
necessary any more, due to changes elsewhere.

mg.c

index d52973b..fd06aa4 100644 (file)
--- 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;