diff options
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3747,7 +3747,7 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv) #endif s = PEEKSPACE(s); if ((PL_bufend - s) >= 2 && *s == '=' && *(s+1) == '>') - return 0; /* no assumptions -- "=>" quotes bearword */ + return 0; /* no assumptions -- "=>" quotes bareword */ bare_package: start_force(PL_curforce); NEXTVAL_NEXTTOKE.opval = (OP*)newSVOP(OP_CONST, 0, @@ -3966,7 +3966,7 @@ S_find_in_my_stash(pTHX_ const char *pkgname, STRLEN len) /* * S_readpipe_override - * Check whether readpipe() is overriden, and generates the appropriate + * Check whether readpipe() is overridden, and generates the appropriate * optree, provided sublex_start() is called afterwards. */ STATIC void @@ -6512,7 +6512,7 @@ Perl_yylex(pTHX) } /* Look for a subroutine with this name in current package, - unless name is "Foo::", in which case Foo is a bearword + unless name is "Foo::", in which case Foo is a bareword (and a package name). */ if (len > 2 && !PL_madskills && @@ -7661,7 +7661,7 @@ Perl_yylex(pTHX) missingterm(NULL); pl_yylval.ival = OP_STRINGIFY; if (SvIVX(PL_lex_stuff) == '\'') - SvIV_set(PL_lex_stuff, 0); /* qq'$foo' should intepolate */ + SvIV_set(PL_lex_stuff, 0); /* qq'$foo' should interpolate */ TERM(sublex_start()); case KEY_qr: |