lib/blib.t tweak for VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05111703b91c44a6865f@[172.16.52.1]>

p4raw-id: //depot/perl@16905

diff --git a/lib/blib.t b/lib/blib.t
index 4871f91..f5e3241 100644 (file)
--- a/lib/blib.t
+++ b/lib/blib.t
@@ -57,7 +57,12 @@ _mkdirs( @blib_dirs );
 is( @INC, 3, '@INC now has 3 elements' );
 is( $INC[2],    '../lib',       'blib added to the front of @INC' );
 
-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
+    $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');
 
 END { _cleanup( @blib_dirs ); }