Localising hash slices with UTF-8 encoded keys was also buggy.

(See also change 27637)

p4raw-id: //depot/perl@27638

1 files changed, 2 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 99f0b06feb..467ef225d2 100644
--- a/pp.c
+++ b/pp.c
@@ -3887,7 +3887,8 @@ PP(pp_hslice)
 		    else {
 			STRLEN keylen;
 			const char *key = SvPV_const(keysv, keylen);
-			SAVEDELETE(hv, savepvn(key,keylen), keylen);
+			SAVEDELETE(hv, savepvn(key,keylen),
+				   SvUTF8(keysv) ? -keylen : keylen);
 		    }
 		}
             }