develooper Front page | perl.perl5.porters | Postings from May 2002

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

Thread Next
From:
Craig A. Berry
Date:
May 30, 2002 14:22
Subject:
[PATCH perl@16893] lib/blib.t tweak for VMS
Message ID:
a05111703b91c44a6865f@[172.16.52.1]
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

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About