usr.bin/perl/toke.c

72 #define PL_oldoldbufptr		(PL_parser->oldoldbufptr)
689         else if (PL_oldoldbufptr) {
692             for (t = PL_oldoldbufptr;
2082     if (PL_oldoldbufptr != PL_last_uni)
2609     SAVEPPTR(PL_oldoldbufptr);
2639     PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart
2705         PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart = SvPVX(PL_linestr);
5051     PL_oldoldbufptr = PL_oldbufptr;
5242         if (   (PL_expect != XREF || PL_oldoldbufptr == PL_last_lop)
5326             const bool islop = (PL_last_lop == PL_oldoldbufptr);
5935     if (   (PL_expect != XREF || PL_oldoldbufptr == PL_last_lop)
6209             if (PL_oldoldbufptr == PL_last_lop)
6226             if (PL_expect == XREF && PL_oldoldbufptr != PL_last_lop) {
6547     if (   (PL_expect != XREF || PL_oldoldbufptr == PL_last_lop)
6587         if (    PL_oldoldbufptr == PL_last_uni
6656     if (PL_last_lop == PL_oldoldbufptr || PL_last_uni == PL_oldoldbufptr)
6657         PL_oldbufptr = PL_oldoldbufptr;		/* allow print(STDOUT 123) */
7212                 PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
7222     PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = PL_linestart = s;
7407                         PL_bufptr = PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
7540     const char lastchar = (PL_bufptr == PL_oldoldbufptr ? 0 : PL_bufptr[-1]);
7637     if (PL_oldoldbufptr
7638         && PL_oldoldbufptr < PL_bufptr
7639         && (PL_oldoldbufptr == PL_last_lop
7640             || PL_oldoldbufptr == PL_last_uni)
7680             PL_expect = (PL_last_lop == PL_oldoldbufptr) ? XTERM : XOPERATOR;
9129             PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
9780     PL_oldoldbufptr = PL_oldbufptr;
11139         oldoldbufptr_save = PL_oldoldbufptr;
11160                 PL_oldoldbufptr = oldoldbufptr_save;
11219                         PL_oldoldbufptr = oldoldbufptr_save;
11237                     PL_oldoldbufptr = oldoldbufptr_save;
12877         else if (   PL_oldoldbufptr
12878                  && PL_bufptr > PL_oldoldbufptr
12879                  && PL_bufptr - PL_oldoldbufptr < 200
12880                  && PL_oldoldbufptr != PL_oldbufptr
12883             while (isSPACE(*PL_oldoldbufptr))
12884                 PL_oldoldbufptr++;
12885             context = PL_oldoldbufptr;
12886             contlen = PL_bufptr - PL_oldoldbufptr;
13743             PL_oldoldbufptr = PL_oldbufptr;