This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv_cathek
[perl5.git] / util.c
diff --git a/util.c b/util.c
index d6501bd..f307138 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5372,10 +5372,7 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
        else {
            sv_sethek(dbsv, HvENAME_HEK(GvSTASH(gv)));
            sv_catpvs(dbsv, "::");
-           sv_catpvn_flags(
-             dbsv, GvNAME(gv), GvNAMELEN(gv),
-             GvNAMEUTF8(gv) ? SV_CATUTF8 : SV_CATBYTES
-           );
+           sv_cathek(dbsv, GvNAME_HEK(gv));
        }
     }
     else {