diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-05-30 11:22:40 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-30 20:26:32 +0000 |
| commit | bea1ee5ea99c2aeca55be8c6a67d96f1dd075299 (patch) | |
| tree | 818ff9b97bcf88dc5a27453f7acde1c37479b9e6 | |
| parent | 69ff8adf802894e0957dae2b89f4e2c30fa38e90 (diff) | |
| download | perl-bea1ee5ea99c2aeca55be8c6a67d96f1dd075299.tar.gz | |
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
| -rw-r--r-- | lib/blib.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/blib.t b/lib/blib.t index 4871f910ff..f5e32414a8 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 ); } |