Cross Reference: FindBin.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
FindBin.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
{
1
N/A
# Can't chdir in BEGIN before FindBin runs, as it then can't find us.
1
N/A
@
INC
= -d
't'
?
'lib'
:
'../lib'
;
1
N/A
}
1
N/A
1
N/A
print
"1..2\n"
;
1
N/A
1
N/A
use
FindBin
qw
(
$Bin
)
;
1
N/A
1
N/A
print
"#
$Bin
\n"
;
1
N/A
1
N/A
if
($^O
eq
'MacOS'
)
{
1
N/A
print
"not "
unless
$Bin
=~ m,:
lib
:$,;
1
N/A
}
else
{
1
N/A
print
"not "
unless
$Bin
=~ m,[/.]
lib
\]?$,;
1
N/A
}
1
N/A
print
"ok 1\n"
;
1
N/A
1
N/A
$
0
=
"-"
;
1
N/A
FindBin
::
again
()
;
1
N/A
1
N/A
print
"not "
if
$FindBin
::
Script
ne
"-"
;
1
N/A
print
"ok 2\n"
;