diff options
Diffstat (limited to 'lib/File/Spec/t/tmpdir.t')
| -rw-r--r-- | lib/File/Spec/t/tmpdir.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/File/Spec/t/tmpdir.t b/lib/File/Spec/t/tmpdir.t index fc5ec0be32..6adad18cb9 100644 --- a/lib/File/Spec/t/tmpdir.t +++ b/lib/File/Spec/t/tmpdir.t @@ -9,6 +9,12 @@ plan tests => 4; ok 1, 1, "Loaded"; +if ($^O eq 'VMS') { + # hack: + # Need to cause the %ENV to get populated or you only get the builtins at + # first, and then something else can cause the hash to get populated. + my %look_env = %ENV; +} my $num_keys = keys %ENV; File::Spec->tmpdir; ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV"; |