utf8.c: Remove redundant assignment.

This variable is always set just below.

1 files changed, 0 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index 2f4035b850..93016f19a3 100644
--- 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