From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 4 Jun 2009 15:29:57 +0000 (-0500)
Subject: Test case to go with 30e682852bf42358156ed62e06e91f75e9f5b807.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50255d58c0706bb8dc18d9013e1541619334546f;p=p5sagit%2Fp5-mst-13.2.git

Test case to go with 30e682852bf42358156ed62e06e91f75e9f5b807.

We should be able to depend on SYS$SCRATCH being a non-rooted
logical name.
---

diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t
index 11b6698..5dd27c9 100644
--- a/vms/ext/filespec.t
+++ b/vms/ext/filespec.t
@@ -156,6 +156,7 @@ __down_:[__the_.__garden_.__path_...]  unixpath        /__down_/__the_/__garden_
 __down_/__the_/__garden_/__path_       vmspath [.__down_.__the_.__garden_.__path_] ^
 __path_        vmspath [.__path_] ^
 /	vmspath	sys$disk:[000000] ^*
+/sys$scratch	vmspath	sys$scratch: ^
 
 # Redundant characters in Unix paths
 //__some_/__where_//__over_/../__the_.__rainbow_       vmsify  __some_:[__where_]__the_.__rainbow_ __some_:[__where_.__over_.-]__the_.__rainbow_