This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test case to go with 30e682852bf42358156ed62e06e91f75e9f5b807.
authorCraig A. Berry <craigberry@mac.com>
Thu, 4 Jun 2009 15:29:57 +0000 (10:29 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 4 Jun 2009 15:29:57 +0000 (10:29 -0500)
We should be able to depend on SYS$SCRATCH being a non-rooted
logical name.

vms/ext/filespec.t

index 11b6698..5dd27c9 100644 (file)
@@ -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_