Searched refs:ON_VMS (Results 1 – 7 of 7) sorted by relevance
21 use constant ON_VMS => $^O eq 'VMS';54 if (ON_VMS) {72 my $class = ON_VMS ? 'File::Spec::Unix' : 'File::Spec';190 $x_pm = VMS::Filespec::unixify($x_pm) if ON_VMS;
16 use constant ON_VMS => $^O eq 'VMS'; constant254 $href->{file} = ON_VMS
100 use constant ON_VMS => $^O eq 'VMS'; constant
283 if (ON_VMS) {405 if (ON_VMS) {
57 use constant ON_VMS => ($^O eq 'VMS'); constant463 $to = VMS::Filespec::vmspath($to) if ON_VMS;1370 my $file_class = ON_VMS
101 ) if not &File::Fetch::ON_WIN and not &File::Fetch::ON_VMS;
810 map { length() ? VMS::Filespec::vmsify($_.'/') : $_ } @dirs if ON_VMS;