1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A # Can't chdir in BEGIN before FindBin runs, as it then can't find us.
1N/A @INC = -d 't' ? 'lib' : '../lib';
1N/A}
1N/A
1N/Aprint "1..2\n";
1N/A
1N/Ause FindBin qw($Bin);
1N/A
1N/Aprint "# $Bin\n";
1N/A
1N/Aif ($^O eq 'MacOS') {
1N/A print "not " unless $Bin =~ m,:lib:$,;
1N/A} else {
1N/A print "not " unless $Bin =~ m,[/.]lib\]?$,;
1N/A}
1N/Aprint "ok 1\n";
1N/A
1N/A$0 = "-";
1N/AFindBin::again();
1N/A
1N/Aprint "not " if $FindBin::Script ne "-";
1N/Aprint "ok 2\n";