diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 00:48:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 00:48:20 +0000 |
| commit | 6002328acc4eebf94540b6802dbffeac7367da7a (patch) | |
| tree | 7e58cb47e25708334de9f392331ec76bff869b50 /toke.c | |
| parent | 7e38dacfa2d1351316d04519c6f54eb4c4e0663d (diff) | |
| download | perl-6002328acc4eebf94540b6802dbffeac7367da7a.tar.gz | |
Integrate change #10739 from maintperl:
C<eval "/x$\r\n/x"> fails to compile correctly
p4raw-link: @10739 on //depot/maint-5.6/perl: a3d864e88a38f4417518c9eac1d0058e2537efe7
p4raw-id: //depot/perl@10742
p4raw-integrated: from //depot/maint-5.6/perl@10741 'merge in'
t/op/pat.t (@9675..) toke.c (@10158..)
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1374,7 +1374,7 @@ S_scan_const(pTHX_ char *start) else if (*s == '$') { if (!PL_lex_inpat) /* not a regexp, so $ must be var */ break; - if (s + 1 < send && !strchr("()| \n\t", s[1])) + if (s + 1 < send && !strchr("()| \r\n\t", s[1])) break; /* in regexp, $ might be tail anchor */ } |