X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/635e76f560b3b3ca075aa2cb5d6d661601968e04..a62b247b9f3d5cc6214f83defea2e06d12398275:/hv.c

diff --git a/hv.c b/hv.c
index 9271901..253cad9 100644
--- a/hv.c
+++ b/hv.c
@@ -3223,7 +3223,7 @@ Perl_refcounted_he_fetch_pvn(pTHX_ const struct refcounted_he *chain,
                 }
                 else {
                     p++;
-                    *q = (char) TWO_BYTE_UTF8_TO_NATIVE(c, *p);
+                    *q = (char) EIGHT_BIT_UTF8_TO_NATIVE(c, *p);
                 }
 	    }
 	}
@@ -3399,7 +3399,7 @@ Perl_refcounted_he_new_pvn(pTHX_ struct refcounted_he *parent,
                 }
                 else {
                     p++;
-                    *q = (char) TWO_BYTE_UTF8_TO_NATIVE(c, *p);
+                    *q = (char) EIGHT_BIT_UTF8_TO_NATIVE(c, *p);
                 }
 	    }
 	}