diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-08-28 15:59:05 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-15 06:19:31 -0700 |
| commit | f34d8cddb66ff0384d68d9388041c9a299f2bb09 (patch) | |
| tree | 07937dcfaf77aeea2808f09095b32e6dea713311 /util.c | |
| parent | c5569a55d25985ac28c100b33e16111ca928c1f9 (diff) | |
| download | perl-f34d8cddb66ff0384d68d9388041c9a299f2bb09.tar.gz | |
sv_cathek
This macro, intended for internal use, simplifies the code in
a couple of places.
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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 { |