1#!./perl 2 3BEGIN { 4 # Can't chdir in BEGIN before FindBin runs, as it then can't find us. 5 @INC = -d 't' ? 'lib' : '../lib'; 6} 7 8print "1..2\n"; 9 10use FindBin qw($Bin); 11 12print "# $Bin\n"; 13 14if ($^O eq 'MacOS') { 15 print "not " unless $Bin =~ m,:lib:$,; 16} else { 17 print "not " unless $Bin =~ m,[/.]lib\]?$,; 18} 19print "ok 1\n"; 20 21$0 = "-"; 22FindBin::again(); 23 24print "not " if $FindBin::Script ne "-"; 25print "ok 2\n"; 26