X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fblib.t;h=b6df9e8d2b95b3efd46e5c56243f1c14f9045f8b;hb=e05a8f29fa78aef20a9869bf742d9b3217cda019;hp=f5e32414a860eae28a7ab98d8672fc0b722cdb77;hpb=bea1ee5ea99c2aeca55be8c6a67d96f1dd075299;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/blib.t b/lib/blib.t
index f5e3241..b6df9e8 100644
--- a/lib/blib.t
+++ b/lib/blib.t
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use strict;
+use File::Spec;
 my($blib, $blib_arch, $blib_lib, @blib_dirs);
 
 sub _cleanup {
@@ -51,7 +52,7 @@ _mkdirs( @blib_dirs );
     my $warnings = '';
     local $SIG{__WARN__} = sub { $warnings = join '', @_ };
     use_ok('blib');
-    is( $warnings, '',  'use blib is niiiice and quiet' );
+    is( $warnings, '',  'use blib is nice and quiet' );
 }
 
 is( @INC, 3, '@INC now has 3 elements' );
@@ -59,10 +60,18 @@ is( $INC[2],    '../lib',       'blib added to the front of @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]';
 }
-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');
+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");
 
 END { _cleanup( @blib_dirs ); }