Lines Matching refs:s2
3385 char *s, *s2;
3501 for (s2 = s; (s2 > SvPV(PL_linestr,n_a)+2 &&
3502 (isDIGIT(s2[-1]) || strchr("._-", s2[-1]))); s2--) ;
3504 if ( (s2-4 < SvPV(PL_linestr,n_a)+2 || strnNE(s2-4,"perl",4)) &&
3749 register char *s, *s2;
3781 s2 = s;
3782 if (*s == '#' && s[1] == '!' && ((s = instr(s,"perl")) || (s = instr(s2,"PERL")))) {
3786 s2 = s;
3789 while (isDIGIT(s2[-1]) || strchr("-._", s2[-1])) s2--;
3790 if (strnEQ(s2-4,"perl",4))