BEGIN {
chdir 't' if -d 't';
- @INC = ('.', '../lib');
+ unshift @INC, ('.', '../lib');
}
# don't make this lexical
# compile-time failure in require
do_require "1)\n";
-# bison says 'parser error' instead of 'syntax error',
+# bison says 'parse error' instead of 'syntax error',
# various yaccs may or may not capitalize 'syntax'.
-print "# $@\nnot " unless $@ =~ /(syntax|parser) error/i;
+print "# $@\nnot " unless $@ =~ /(syntax|parse) error/mi;
print "ok ",$i++,"\n";
# successful require
print "# $@\nnot " if $@;
print "ok ",$i++,"\n";
-END { unlink 'bleah.pm'; }
+END { 1 while unlink 'bleah.pm'; }
# ***interaction with pod (don't put any thing after here)***