Lines Matching full:vms
9 my @platforms = qw(Cygwin Epoc Mac OS2 Unix VMS Win32);
17 if ($^O eq 'VMS') {
19 if (eval 'require VMS::Feature') {
20 $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
21 $vms_efs = VMS::Feature::current("efs_charset");
29 # Traditional VMS mode only if VMS is not in UNIX compatible mode.
47 VMS => 'v',
53 VMS => 'w',
105 if ($vms_unix_mode and $platform eq 'VMS') {
107 # If VMS is in UNIX mode, so is the result, but having the volume
108 # parameter present forces the abs2rel into VMS mode.
109 $result = VMS::Filespec::vmsify($result);
136 if ($vms_unix_mode and $platform eq 'VMS') {
138 # If VMS is in UNIX mode, so is the result, but having the volume
139 # parameter present forces the abs2rel into VMS mode.
140 $result = VMS::Filespec::vmsify($result);
150 if ($vms_unix_mode and $platform eq 'VMS') {
152 # If VMS is in UNIX mode, so is the result, but having the volume
153 # parameter present forces the abs2rel into VMS mode.
154 $result = VMS::Filespec::vmsify($result);