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 /t | |
| 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 't')
| -rwxr-xr-x | t/op/pat.t | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index c59e31f87f..942e6e65f9 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..630\n"; +print "1..632\n"; BEGIN { chdir 't' if -d 't'; @@ -1765,3 +1765,21 @@ EOT print "ok 630\n"; } +$_ = "foo"; + +eval <<"EOT"; die if $@; + /f + o\r + o + \$ + /x && print "ok 631\n"; +EOT + +eval <<"EOT"; die if $@; + /f + o + o + \$\r + /x && print "ok 632\n"; +EOT + |