diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-05-03 20:26:22 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-05-03 20:26:22 +0000 |
| commit | e2ab214b14c9284fa9074628aa22936a93dab84f (patch) | |
| tree | 5d0ff4040252d45a379e056c4c436290e460d94e /toke.c | |
| parent | 9111c9c032460b8a1a0f3c5ec70114106769f656 (diff) | |
| download | perl-e2ab214b14c9284fa9074628aa22936a93dab84f.tar.gz | |
[perl #28986] perl -e "open m" crashes Perl
p4raw-id: //depot/perl@22776
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4681,8 +4681,8 @@ Perl_yylex(pTHX) if (isIDFIRST_lazy_if(s,UTF)) { char *t; for (d = s; isALNUM_lazy_if(d,UTF); d++) ; - t = skipspace(d); - if (strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE) + for (t=d; *t && isSPACE(*t); t++) ; + if ( *t && strchr("|&*+-=!?:.", *t) && ckWARN_d(WARN_PRECEDENCE) /* [perl #16184] */ && !(t[0] == '=' && t[1] == '>') ) { |