pp.c: pp_bless UTF8 cleanup.

Some tests in t/uni/bless.t are TODO, as ref() isn't
clean yet.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 185aa83c40..316b80ea94 100644
--- a/pp.c
+++ b/pp.c
@@ -571,7 +571,7 @@ PP(pp_bless)
 	if (len == 0)
 	    Perl_ck_warner(aTHX_ packWARN(WARN_MISC),
 			   "Explicit blessing to '' (assuming package main)");
-	stash = gv_stashpvn(ptr, len, GV_ADD);
+	stash = gv_stashpvn(ptr, len, GV_ADD|SvUTF8(ssv));
     }
 
     (void)sv_bless(TOPs, stash);