This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Remove redundant assignment.
authorKarl Williamson <public@khwilliamson.com>
Fri, 29 Mar 2013 01:56:39 +0000 (19:56 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 14:59:13 +0000 (08:59 -0600)
This variable is always set just below.

utf8.c

diff --git a/utf8.c b/utf8.c
index 2f4035b..93016f1 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -3231,7 +3231,6 @@ Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8)
      * So the key in the hash (klen) is length of encoded char -1
      */
     klen = UTF8SKIP(ptr) - 1;
-    off  = ptr[klen];
 
     if (klen == 0) {
       /* If char is invariant then swatch is for all the invariant chars