diff options
| author | John Malmberg <wb8tyw@gmail.com> | 2009-01-04 13:13:45 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-01-08 15:14:30 -0600 |
| commit | ca48d8be8832a77b6914b6e892f536b4d0b46f8a (patch) | |
| tree | ffb2df77ec8f0c42ae0570f70bb04992051ed6cb /lib/blib.t | |
| parent | 0e88df1c021b57b00806b5c1acdfd528120db28b (diff) | |
| download | perl-ca48d8be8832a77b6914b6e892f536b4d0b46f8a.tar.gz | |
lib/blib.t, lib/h2xs.t patches for VMS
Message-id: <49610A69.3020908@gmail.com>
The tests lib/blib.t and lib/h2xs.t need fixes to know when VMS is in
the UNIX report mode.
Diffstat (limited to 'lib/blib.t')
| -rw-r--r-- | lib/blib.t | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/lib/blib.t b/lib/blib.t index b6df9e8d2b..a959471cbf 100644 --- a/lib/blib.t +++ b/lib/blib.t @@ -9,6 +9,24 @@ use strict; 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'; @@ -58,7 +76,7 @@ _mkdirs( @blib_dirs ); 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]'; |