-ok( grep(m|blib/lib$|, @INC[0,1]) == 1, ' blib/lib in @INC');
-ok( grep(m|blib/arch$|, @INC[0,1]) == 1, ' blib/arch in @INC');
+if ($^O eq 'VMS') {
+ # Unix syntax is accepted going in but it's not what comes out
+ # So we don't use catdir above
+ $blib_arch = 'blib.arch]';
+ $blib_lib = 'blib.lib]';
+}
+elsif ($^O ne 'MacOS')
+{
+ $blib_arch = File::Spec->catdir("blib","arch");
+ $blib_lib = File::Spec->catdir("blib","lib");
+}
+
+
+ok( grep(m|\Q$blib_lib\E$|, @INC[0,1]) == 1, " $blib_lib in \@INC");
+ok( grep(m|\Q$blib_arch\E$|, @INC[0,1]) == 1, " $blib_arch in \@INC");