extra code in pp_concat, Take 2
[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
f5094128 8print "1..2\n";
1a3850a5 9
10use FindBin qw($Bin);
11
b695f709 12print "# $Bin\n";
13
d5201bd2 14if ($^O eq 'MacOS') {
15 print "not " unless $Bin =~ m,:lib:$,;
16} else {
17 print "not " unless $Bin =~ m,[/.]lib\]?$,;
18}
1a3850a5 19print "ok 1\n";
f5094128 20
21$0 = "-";
22FindBin::again();
23
24print "not " if $FindBin::Script ne "-";
25print "ok 2\n";