1 #!./perl -IFoo::Bar -IBla
5 unshift @INC, '../lib';
6 require './test.pl'; # for which_perl() etc
13 my $Is_VMS = $^O eq 'VMS';
17 ok(grep { $_ eq $lib } @INC[0..($#INC-1)]);
19 skip 'Double colons not allowed in dir spec', 1 if $Is_VMS;
21 ok(grep { $_ eq $lib } @INC[0..($#INC-1)]);
25 fresh_perl_is("print grep { \$_ eq '$lib' } \@INC[0..(\$#INC-1)]", $lib,
26 { switches => ['-IBla2'] }, '-I');
28 skip 'Double colons not allowed in dir spec', 1 if $Is_VMS;
30 fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib,
31 { switches => ['-IFoo::Bar2'] }, '-I with colons');