usr.bin/perl/toke.c

376         if (PL_parser->herelines)		       \
377             CopLINE(PL_curcop) += PL_parser->herelines, \
378             PL_parser->herelines = 0;			 \
386             PL_parser->herelines = 0;		  \
1743             CopLINE(PL_curcop) += PL_parser->herelines + 1;
2602         SAVEI32(PL_parser->herelines);
2603         PL_parser->herelines = 0;
2730                  + PL_parser->herelines;
2731             PL_parser->herelines = 0;
2745             PL_parser->herelines += l - PL_multi_end;
10285     I32 herelines = PL_parser->herelines;
10520             PL_parser->herelines = herelines;
10984     PL_multi_start = origline + 1 + PL_parser->herelines;
11046                     ++PL_parser->herelines;
11066                         PL_parser->herelines--; /* this line doesn't count */
11077                     ++PL_parser->herelines;
11088         PL_parser->herelines++;
11146                         origline + 1 + PL_parser->herelines);
11175             PL_parser->herelines++;
11248     PL_multi_end = origline + PL_parser->herelines;
11549     line_t herelines;
11592     herelines = PL_parser->herelines;
11825     PL_parser->herelines = herelines;