From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 30 May 2002 16:22:40 +0000 (-0500)
Subject: lib/blib.t tweak for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bea1ee5ea99c2aeca55be8c6a67d96f1dd075299;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 ); }