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