Searched refs:lex_flags (Results 1 – 3 of 3) sorted by relevance
109 U8 lex_flags; member
5293 U32 seq, lex_flags;5314 lex_flags = 0; in PP() 5337 lex_flags |= LEX_START_COPIED; in PP() 5348 lex_flags |= LEX_START_COPIED; in PP() 5356 lex_start(sv, NULL, lex_flags | (PL_op->op_private & OPpEVAL_UNICODE in Perl_delete_eval_scope() 5027 U32 seq, lex_flags; PP() local
108 # define UTF cBOOL((PL_linestr && DO_UTF8(PL_linestr)) || ( !(PL_parser->lex_flags & LEX_IGNORE_UTF8_HINTS) && (PL_hints & HINT_UTF8)))939 parser->lex_flags = (U8) (flags & (LEX_IGNORE_UTF8_HINTS|LEX_EVALBYTES in Perl_lex_start() 956 if (PL_parser->lex_flags & LEX_DONT_CLOSE_RSFP) in Perl_parser_free() 1522 if (PL_parser->lex_flags & LEX_DONT_CLOSE_RSFP) in Perl_lex_next_chunk() 4867 if (PL_parser->lex_flags & LEX_IGNORE_UTF8_HINTS) in Perl_filter_read() 4884 && PL_parser->lex_flags & LEX_EVALBYTES in Perl_filter_read()