This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a test for bug #17920, and a new test file for it.
[perl5.git] / t / comp / parser.t
CommitLineData
923be969
RGS
1#!./perl
2
3# Checks if the parser behaves correctly in edge cases
4# (including weird syntax errors)
5
6BEGIN {
7 chdir 't' if -d 't';
8 @INC = '../lib';
9}
10
11print "1..1\n";
12
13# This used to dump core (bug #17920)
14eval q{ sub { sub { f1(f2();); my($a,$b,$c) } } };
15print $@ && $@ =~ /error/ ? "ok 1\n" : "not ok 1\n";