summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2009-06-04 10:29:57 -0500
committerCraig A. Berry <craigberry@mac.com>2009-06-04 10:29:57 -0500
commit50255d58c0706bb8dc18d9013e1541619334546f (patch)
tree13018d28c84a845ffd68659542d447a2a41abffd /vms
parent8415bfe009d4d13c8d970b3e09ff685cfe5dc0d2 (diff)
downloadperl-50255d58c0706bb8dc18d9013e1541619334546f.tar.gz
Test case to go with 30e682852bf42358156ed62e06e91f75e9f5b807.
We should be able to depend on SYS$SCRATCH being a non-rooted logical name.
Diffstat (limited to 'vms')
-rw-r--r--vms/ext/filespec.t1
1 files changed, 1 insertions, 0 deletions
diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t
index 11b6698116..5dd27c9b9d 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_