Commit | Line | Data |
---|---|---|
1a3850a5 GA |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
88587957 NC |
4 | # Can't chdir in BEGIN before FindBin runs, as it then can't find us. |
5 | @INC = -d 't' ? 'lib' : '../lib'; | |
1a3850a5 GA |
6 | } |
7 | ||
8 | print "1..1\n"; | |
9 | ||
10 | use FindBin qw($Bin); | |
11 | ||
b695f709 JH |
12 | print "# $Bin\n"; |
13 | ||
14 | print "not " unless $Bin =~ m,[/.]lib\]?$,; | |
1a3850a5 | 15 | print "ok 1\n"; |