Cross Reference: switchI.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
run
/
switchI.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl -IFoo::Bar -IBla
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
unshift
@
INC
,
'../lib'
;
1
N/A
require
'./
test.pl
'
;
# for which_perl() etc
1
N/A
}
1
N/A
1
N/A
BEGIN
{
1
N/A
plan
(
4
)
;
1
N/A
}
1
N/A
1
N/A
my
$Is_MacOS
= $^O
eq
'MacOS'
;
1
N/A
my
$Is_VMS
= $^O
eq
'VMS'
;
1
N/A
my
$lib
;
1
N/A
1
N/A
$lib
=
$Is_MacOS
?
':Bla:'
:
'Bla'
;
1
N/A
ok
(
grep
{ $_
eq
$lib
} @
INC
);
1
N/A
SKIP
:
{
1
N/A
skip
'Double colons not allowed in dir spec'
,
1
if
$Is_VMS
;
1
N/A
$lib
=
$Is_MacOS
?
'Foo::Bar:'
:
'Foo::Bar'
;
1
N/A
ok
(
grep
{ $_
eq
$lib
} @
INC
);
1
N/A
}
1
N/A
1
N/A
$lib
=
$Is_MacOS
?
':Bla2:'
:
'Bla2'
;
1
N/A
fresh_perl_is
(
"print grep { \$_ eq '
$lib
' } \@INC"
,
$lib
,
1
N/A
{
switches
=> [
'-IBla2'
] },
'-I'
);
1
N/A
SKIP
:
{
1
N/A
skip
'Double colons not allowed in dir spec'
,
1
if
$Is_VMS
;
1
N/A
$lib
=
$Is_MacOS
?
'Foo::Bar2:'
:
'Foo::Bar2'
;
1
N/A
fresh_perl_is
(
"print grep { \$_ eq '
$lib
' } \@INC"
,
$lib
,
1
N/A
{
switches
=> [
'-IFoo::Bar2'
] },
'-I with colons'
);
1
N/A
}