10 my($blib, $blib_arch, $blib_lib, @blib_dirs);
12 my $Is_VMS = $^O eq 'VMS';
16 require VMS::Filespec if $Is_VMS;
20 if (eval 'require VMS::Feature') {
21 $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
23 my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
24 $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
26 $Is_VMS_mode = 0 if ($vms_unix_rpt);
31 rmdir foreach reverse (@_);
32 unlink "stderr" unless $^O eq 'MacOS';
38 mkdir $dir or die "Can't mkdir $dir: $!" if ! -d $dir;
46 $MacPerl::Architecture = $MacPerl::Architecture; # shhhhh
48 $blib_lib = ":blib:lib:";
49 $blib_arch = ":blib:lib:$MacPerl::Architecture:";
50 @blib_dirs = ($blib, $blib_lib, $blib_arch); # order
55 $blib_arch = "blib/arch";
56 $blib_lib = "blib/lib";
57 @blib_dirs = ($blib, $blib_arch, $blib_lib);
59 _cleanup( @blib_dirs );
62 use Test::More tests => 7;
65 ok( $@ =~ /Cannot find blib/, 'Fails if blib directory not found' );
67 _mkdirs( @blib_dirs );
71 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
73 is( $warnings, '', 'use blib is nice and quiet' );
76 is( @INC, 3, '@INC now has 3 elements' );
77 is( $INC[2], '../lib', 'blib added to the front of @INC' );
80 # Unix syntax is accepted going in but it's not what comes out
81 # So we don't use catdir above
82 $blib_arch = 'blib.arch]';
83 $blib_lib = 'blib.lib]';
85 elsif ($^O ne 'MacOS')
87 $blib_arch = File::Spec->catdir("blib","arch");
88 $blib_lib = File::Spec->catdir("blib","lib");
92 ok( grep(m|\Q$blib_lib\E$|, @INC[0,1]) == 1, " $blib_lib in \@INC");
93 ok( grep(m|\Q$blib_arch\E$|, @INC[0,1]) == 1, " $blib_arch in \@INC");
95 END { _cleanup( @blib_dirs ); }