1#!./perl -IFoo::Bar -IBla 2 3BEGIN { 4 chdir 't' if -d 't'; 5 unshift @INC, '../lib'; 6 require './test.pl'; # for which_perl() etc 7} 8 9BEGIN { 10 plan(4); 11} 12 13my $Is_MacOS = $^O eq 'MacOS'; 14my $Is_VMS = $^O eq 'VMS'; 15my $lib; 16 17$lib = $Is_MacOS ? ':Bla:' : 'Bla'; 18ok(grep { $_ eq $lib } @INC); 19SKIP: { 20 skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; 21 $lib = $Is_MacOS ? 'Foo::Bar:' : 'Foo::Bar'; 22 ok(grep { $_ eq $lib } @INC); 23} 24 25$lib = $Is_MacOS ? ':Bla2:' : 'Bla2'; 26fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib, 27 { switches => ['-IBla2'] }, '-I'); 28SKIP: { 29 skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; 30 $lib = $Is_MacOS ? 'Foo::Bar2:' : 'Foo::Bar2'; 31 fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib, 32 { switches => ['-IFoo::Bar2'] }, '-I with colons'); 33} 34