use File::Spec;
my($blib, $blib_arch, $blib_lib, @blib_dirs);
+my $Is_VMS = $^O eq 'VMS';
+my $Is_VMS_mode = 0;
+
+if ($Is_VMS) {
+ require VMS::Filespec if $Is_VMS;
+ my $vms_unix_rpt;
+
+ $Is_VMS_mode = 1;
+ if (eval 'require VMS::Feature') {
+ $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
+ } else {
+ my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+ $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
+ }
+ $Is_VMS_mode = 0 if ($vms_unix_rpt);
+}
+
+
sub _cleanup {
rmdir foreach reverse (@_);
unlink "stderr" unless $^O eq 'MacOS';
is( @INC, 3, '@INC now has 3 elements' );
is( $INC[2], '../lib', 'blib added to the front of @INC' );
-if ($^O eq 'VMS') {
+if ($Is_VMS_mode) {
# Unix syntax is accepted going in but it's not what comes out
# So we don't use catdir above
$blib_arch = 'blib.arch]';