Home
last modified time | relevance | path

Searched refs:PL_encoding (Results 1 – 10 of 10) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/
Ddoop.c971 if (PL_encoding && !SvUTF8(sv)) { in Perl_do_chop()
974 sv_recode_to_utf8(sv, PL_encoding); in Perl_do_chop()
1054 if (PL_encoding) { in Perl_do_chomp()
1061 sv_recode_to_utf8(sv, PL_encoding); in Perl_do_chomp()
1102 else if (PL_encoding) { in Perl_do_chomp()
1106 sv_recode_to_utf8(svrecode, PL_encoding); in Perl_do_chomp()
Dmg.c673 sv_setsv(sv, PL_encoding); in Perl_magic_get()
2143 if (PL_encoding) in Perl_magic_set()
2144 SvREFCNT_dec(PL_encoding); in Perl_magic_set()
2146 PL_encoding = newSVsv(sv); in Perl_magic_set()
2149 PL_encoding = Nullsv; in Perl_magic_set()
Dpp.c3181 if (PL_encoding) { in PP()
3182 sv_recode_to_utf8(temp, PL_encoding); in PP()
3243 if (PL_encoding) { in PP()
3244 sv_recode_to_utf8(temp, PL_encoding); in PP()
3302 if (PL_encoding && SvPOK(argsv) && !DO_UTF8(argsv)) { in PP()
3304 s = (U8*)sv_recode_to_utf8(tmpsv, PL_encoding); in PP()
3340 if (PL_encoding && !IN_BYTES) { in PP()
3341 sv_recode_to_utf8(TARG, PL_encoding); in PP()
Dtoke.c1881 if (PL_encoding && !has_utf8) { in S_scan_const()
1882 sv_recode_to_utf8(sv, PL_encoding); in S_scan_const()
4411 else if (PL_encoding) {
4418 XPUSHs(PL_encoding);
9629 else if (PL_encoding)
9630 sv_recode_to_utf8(tmpstr, PL_encoding);
9897 if (PL_encoding && !UTF) {
9902 const bool found = sv_cat_decode(sv, PL_encoding, PL_linestr,
10087 if (!PL_encoding || UTF) {
10092 if (has_utf8 || PL_encoding)
[all …]
Dembedvar.h255 #define PL_encoding (PERL_GET_INTERP->Iencoding) macro
580 #define PL_encoding (vTHX->Iencoding) macro
908 #define PL_Iencoding PL_encoding
Dperlapi.h246 #undef PL_encoding
247 #define PL_encoding (*Perl_Iencoding_ptr(aTHX))
Dsv.c3507 if (PL_encoding && !(flags & SV_UTF8_NO_ENCODING)) in Perl_sv_utf8_upgrade_flags()
3508 sv_recode_to_utf8(sv, PL_encoding); in Perl_sv_utf8_upgrade_flags()
5913 if (PL_encoding) { in Perl_sv_eq()
5916 sv_recode_to_utf8(svrecode, PL_encoding); in Perl_sv_eq()
5921 sv_recode_to_utf8(svrecode, PL_encoding); in Perl_sv_eq()
6006 if (PL_encoding) { in Perl_sv_cmp()
6008 sv_recode_to_utf8(svrecode, PL_encoding); in Perl_sv_cmp()
6016 if (PL_encoding) { in Perl_sv_cmp()
6018 sv_recode_to_utf8(svrecode, PL_encoding); in Perl_sv_cmp()
11117 PL_encoding = sv_dup(proto_perl->Iencoding, param); in perl_clone_using()
Dpp_ctl.c3426 encoding = PL_encoding; in PP()
3427 PL_encoding = Nullsv; in PP()
3432 PL_encoding = encoding; in PP()
Dpp_hot.c2086 if (PL_encoding) in PP()
2087 sv_recode_to_utf8(nsv, PL_encoding); in PP()
Dregcomp.c3335 if (PL_encoding && PL_regkind[(U8)OP(ret)] == EXACT) { in S_regatom()
3342 const char * const s = sv_recode_to_utf8(sv, PL_encoding); in S_regatom()