[PATCH perl@16893] lib/blib.t tweak for VMS

We wer failing these because 'blib/lib' doesn't look like 'blib.lib]'.


--- lib/blib.t;-0       Thu May 30 09:32:45 2002
+++ lib/blib.t  Thu May 30 16:04:08 2002
@@ -57,7 +57,12 @@
 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 ); }
[end of patch]

-- 
________________________________________
Craig A. Berry
mailto:craigberry@mac.com

"... getting out of a sonnet is much more
 difficult than getting in."
                 Brad Leithauser

• [PATCH perl@16893] lib/blib.t tweak for VMS by Craig A. Berry
• Re: [PATCH perl@16893] lib/blib.t tweak for VMS by Nick Ing-Simmons
• Re: [PATCH perl@16893] lib/blib.t tweak for VMS by Nick Ing-Simmons
• Re: [PATCH perl@16893] lib/blib.t tweak for VMS by Jarkko Hietaniemi