1 #!./perl -IFoo::Bar -IBla
5 unshift @INC, '../lib';
6 require './test.pl'; # for which_perl() etc
13 ok(grep { $_ eq 'Bla' } @INC);
15 skip 'Double colons not allowed in dir spec', 1 if $^O eq 'VMS';
16 ok(grep { $_ eq 'Foo::Bar' } @INC);
19 fresh_perl_is('print grep { $_ eq "Bla2" } @INC', 'Bla2',
20 { switches => ['-IBla2'] }, '-I');
22 skip 'Double colons not allowed in dir spec', 1 if $^O eq 'VMS';
23 fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2',
24 { switches => ['-IFoo::Bar2'] }, '-I with colons');