t/comp/parser.t

   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";