diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-10-12 03:30:02 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-12 23:41:19 +0000 |
| commit | e4dfc136d9a3d82ffa8f71e721a4dfe58fd3bad2 (patch) | |
| tree | ce0330742726e1853298a07664dc2e3713400e22 /lib/File | |
| parent | cbe7f703579edec09c7919d264de0a404e5d0f16 (diff) | |
| download | perl-e4dfc136d9a3d82ffa8f71e721a4dfe58fd3bad2.tar.gz | |
5.6.0 & 5.7.1, VMS fixes
Message-Id: <001012072828.2eabc@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7208
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Temp.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm index 2dec72c17b..a35104400d 100644 --- a/lib/File/Temp.pm +++ b/lib/File/Temp.pm @@ -340,6 +340,7 @@ sub _gettemp { if ($^O eq 'VMS') { # need volume to avoid relative dir spec $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]); + $parent = 'sys$disk:[]' if $parent eq ''; } else { # Put it back together without the last one @@ -1107,7 +1108,7 @@ sub tempdir { # Prepend the supplied directory or temp dir if ($options{"DIR"}) { - $template = File::Spec->catfile($options{"DIR"}, $template); + $template = File::Spec->catdir($options{"DIR"}, $template); } elsif ($options{TMPDIR}) { |