plan(4);
}
-ok(grep { $_ eq 'Bla' } @INC);
-ok(grep { $_ eq 'Foo::Bar' } @INC);
+my $Is_MacOS = $^O eq 'MacOS';
+my $Is_VMS = $^O eq 'VMS';
+my $lib;
-fresh_perl_is('print grep { $_ eq "Bla2" } @INC', 'Bla2',
+$lib = $Is_MacOS ? ':Bla:' : 'Bla';
+ok(grep { $_ eq $lib } @INC);
+SKIP: {
+ skip 'Double colons not allowed in dir spec', 1 if $Is_VMS;
+ $lib = $Is_MacOS ? 'Foo::Bar:' : 'Foo::Bar';
+ ok(grep { $_ eq $lib } @INC);
+}
+
+$lib = $Is_MacOS ? ':Bla2:' : 'Bla2';
+fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib,
{ switches => ['-IBla2'] }, '-I');
-fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2',
- { switches => ['-IFoo::Bar2'] }, '-I with colons');
+SKIP: {
+ skip 'Double colons not allowed in dir spec', 1 if $Is_VMS;
+ $lib = $Is_MacOS ? 'Foo::Bar2:' : 'Foo::Bar2';
+ fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib,
+ { switches => ['-IFoo::Bar2'] }, '-I with colons');
+}