8 # don't make this lexical
14 open(REQ,">bleah.pm") or die "Can't write 'bleah.pm': $!";
17 eval { require "bleah.pm" };
18 my @a; # magic guard for scope violations (must be first lexical in file)
21 # run-time failure in require
23 print "# $@\nnot " unless $@ =~ /did not return a true/;
24 print "ok ",$i++,"\n";
26 # compile-time failure in require
28 print "# $@\nnot " unless $@ =~ /syntax error/;
29 print "ok ",$i++,"\n";
33 print "# $@\nnot " if $@;
34 print "ok ",$i++,"\n";