I don't think trying to bracket the hires time with lores
[p5sagit/p5-mst-13.2.git] / lib / FindBin.t
CommitLineData
1a3850a5 1#!./perl
2
3BEGIN {
88587957 4 # Can't chdir in BEGIN before FindBin runs, as it then can't find us.
5 @INC = -d 't' ? 'lib' : '../lib';
1a3850a5 6}
7
8print "1..1\n";
9
10use FindBin qw($Bin);
11
b695f709 12print "# $Bin\n";
13
14print "not " unless $Bin =~ m,[/.]lib\]?$,;
1a3850a5 15print "ok 1\n";