On Thu, May 30, 2002 at 04:22:40PM -0500, Craig A. Berry wrote:
> We wer failing these because 'blib/lib' doesn't look like 'blib.lib]'.
Thanks, applied.
> --- 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:[EMAIL PROTECTED]
>
> "... getting out of a sonnet is much more
> difficult than getting in."
> Brad Leithauser
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
