5 @INC = ('.', '../lib');
8 # don't make this lexical
14 write_file('bleah.pm',@_);
15 eval { require "bleah.pm" };
16 my @a; # magic guard for scope violations (must be first lexical in file)
21 open(REQ,">$f") or die "Can't write '$f': $!";
26 # interaction with pod (see the eof)
27 write_file('bleah.pm', "print 'ok $i\n'; 1;\n");
31 # run-time failure in require
33 print "# $@\nnot " unless $@ =~ /did not return a true/;
34 print "ok ",$i++,"\n";
36 # compile-time failure in require
38 print "# $@\nnot " unless $@ =~ /syntax error/i;
39 print "ok ",$i++,"\n";
43 print "# $@\nnot " if $@;
44 print "ok ",$i++,"\n";
46 END { unlink 'bleah.pm'; }
48 # ***interaction with pod (don't put any thing after here)***