Commit | Line | Data |
---|---|---|
923be969 RGS |
1 | #!./perl |
2 | ||
3 | # Checks if the parser behaves correctly in edge cases | |
4 | # (including weird syntax errors) | |
5 | ||
6 | BEGIN { | |
7 | chdir 't' if -d 't'; | |
8 | @INC = '../lib'; | |
9 | } | |
10 | ||
11 | print "1..1\n"; | |
12 | ||
13 | # This used to dump core (bug #17920) | |
14 | eval q{ sub { sub { f1(f2();); my($a,$b,$c) } } }; | |
15 | print $@ && $@ =~ /error/ ? "ok 1\n" : "not ok 1\n"; |