From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 24 Jul 2000 17:52:56 +0000 (+0000)
Subject: File::Spec::VMS fixup for tmpdir from Craig Berry.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=188ff3c1f17467ccacb0b31f3e13fd49b5b438a7;p=p5sagit%2Fp5-mst-13.2.git

File::Spec::VMS fixup for tmpdir from Craig Berry.

p4raw-id: //depot/perl@6433
---

diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm
index c19695d..60b0ec8 100644
--- a/lib/File/Spec/VMS.pm
+++ b/lib/File/Spec/VMS.pm
@@ -265,7 +265,7 @@ sub rootdir {
 Returns a string representation of the first writable directory
 from the following list or '' if none are writable:
 
-    sys$scratch
+    sys$scratch:
     $ENV{TMPDIR}
 
 =cut
@@ -273,7 +273,7 @@ from the following list or '' if none are writable:
 my $tmpdir;
 sub tmpdir {
     return $tmpdir if defined $tmpdir;
-    foreach ('sys$scratch', $ENV{TMPDIR}) {
+    foreach ('sys$scratch:', $ENV{TMPDIR}) {
 	next unless defined && -d && -w _;
 	$tmpdir = $_;
 	last;