diff options
Diffstat (limited to 't/comp/parser.t')
| -rw-r--r-- | t/comp/parser.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index 9652c4278a..ebfcb9d613 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -58,11 +58,11 @@ sub is { eval '%@x=0;'; like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' ); -# Bug 20010422.005 +# Bug 20010422.005 (#6874) eval q{{s//${}/; //}}; like( $@, qr/syntax error/, 'syntax error, used to dump core' ); -# Bug 20010528.007 +# Bug 20010528.007 (#7052) eval q/"\x{"/; like( $@, qr/^Missing right brace on \\x/, 'syntax error in string, used to dump core' ); @@ -85,7 +85,7 @@ eval "a.b.c.d.e.f;sub"; like( $@, qr/^Illegal declaration of anonymous subroutine/, 'found by Markov chain stress testing' ); -# Bug 20010831.001 +# Bug 20010831.001 (#7605) eval '($a, b) = (1, 2);'; like( $@, qr/^Can't modify constant item in list assignment/, 'bareword in list assignment' ); @@ -96,11 +96,11 @@ like( $@, qr/^Can't modify constant item in tie /, eval 'undef foo'; like( $@, qr/^Can't modify constant item in undef operator /, - 'undefing constant causes a segfault in 5.6.1 [ID 20010906.019]' ); + 'undefing constant causes a segfault in 5.6.1 [ID 20010906.019 (#7642)]' ); eval 'read($bla, FILE, 1);'; like( $@, qr/^Can't modify constant item in read /, - 'read($var, FILE, 1) segfaults on 5.6.1 [ID 20011025.054]' ); + 'read($var, FILE, 1) segfaults on 5.6.1 [ID 20011025.054 (#7847)]' ); # This used to dump core (bug #17920) eval q{ sub { sub { f1(f2();); my($a,$b,$c) } } }; |