Home
last modified time | relevance | path

Searched refs:VMS (Results 1 – 25 of 154) sorted by relevance

1234567

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DPath.pm148 $path = VMS::Filespec::unixify($path);
199 chmod(0777, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
221 ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z## if $Is_VMS;
229 ($Is_VMS ? !&VMS::Filespec::candelete($root) : !-w $root)) {
242 chmod($rp, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
249 ($Is_VMS ? !&VMS::Filespec::candelete($root)
H A DTemp.pm133 require VMS::Stdio if $^O eq 'VMS';
472 $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, 0600, 'fop=dlt');
886 $fname = VMS::Filespec::vmspath($fname) if $^O eq 'VMS';
1142 $options{"DIR"} = VMS::Filespec::vmspath($options{"DIR"});
1313 $template = VMS::Filespec::vmspath($template) if $^O eq 'VMS';
H A DSpec.pm11 VMS => 'VMS',
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/pod/
H A Dfind.t36 if ($^O eq 'VMS') {
38 VMS::Filespec::unixify(File::Spec->catdir('pod', 'testpods', 'lib'))
39 : VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod'));
62 if ($^O eq 'VMS') {
90 if ($^O eq 'VMS') { # privlib is perl_root:[lib] OK but not under mms
117 elsif ($^O eq 'VMS') { # privlib is perl_root:[lib] unfortunately
119 $result = VMS::Filespec::unixify($result);
H A Dtestp2pt.pl29 require VMS::Filespec if $^O eq 'VMS';
39 $INSTDIR = VMS::Filespec::unixpath($INSTDIR) if $^O eq 'VMS';
99 $_[0]->{_INFILE} = VMS::Filespec::unixify($_[0]->{_INFILE}) if $^O eq 'VMS';
H A Dtestpchk.pl13 require VMS::Filespec if $^O eq 'VMS';
64 $_ = VMS::Filespec::unixify($_) unless ref;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DInstalled.pm16 require VMS::Filespec if $Is_VMS;
26 $prefix = VMS::Filespec::unixify($prefix);
27 $path = VMS::Filespec::unixify($path);
89 $archlib = VMS::Filespec::unixify($archlib);
90 $sitearch = VMS::Filespec::unixify($sitearch);
H A DManifest.pm24 require VMS::Filespec if $Is_VMS;
392 $target = VMS::Filespec::unixify($target) if $Is_VMS;
403 $file = VMS::Filespec::unixify($file) if $Is_VMS;
406 $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Errno/
H A DMakefile.PL24 @VMS = ($^O eq 'VMS') ? (MAN3PODS => {}) : ();
38 @VMS,
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/SDBM_File/sdbm/
H A Dsdbm.h12 #ifdef VMS
136 #ifdef VMS
142 # if !defined(MSDOS) && !defined(WIN32) && !defined(VMS)
279 # ifdef VMS
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/Liblist/
H A DKid.pm481 $fullname = VMS::Filespec::rmsexpand($name);
497 elsif (-f ($fullname = VMS::Filespec::rmsexpand($name,$so)) or
498 -f ($fullname = VMS::Filespec::rmsexpand($name,'.exe'))) {
504 ( -f ($fullname = VMS::Filespec::rmsexpand($name,$lib_ext)) or
505 -f ($fullname = VMS::Filespec::rmsexpand($name,'.olb')))) {
511 ( -f ($fullname = VMS::Filespec::rmsexpand($name,$obj_ext)) or
512 -f ($fullname = VMS::Filespec::rmsexpand($name,'.obj')))) {
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/Ping/t/
H A D500_ping_icmp.t18 if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
21 or ($^O eq 'VMS'
H A D110_icmp_inst.t18 if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
21 or ($^O eq 'VMS'
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/
H A DSpec.t12 require VMS::Filespec ;
29 require File::Spec::VMS ;
H A Dcrossplatform.t17 VMS => 'v',
23 VMS => 'w',
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/
H A Dmg28 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {
38 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'MacOS') {
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Ddiagnostics.pm179 require VMS::Filespec;
180 $privlib = VMS::Filespec::unixify($privlib);
181 $archlib = VMS::Filespec::unixify($archlib);
H A DEnv.pm92 tie @{"${callpack}::$name"}, Env::Array::VMS, $name;
214 package Env::Array::VMS;
H A DAutoSplit.pm216 ($autodir = VMS::Filespec::unixpath($autodir)) =~ s|/\z||;
217 $filename = VMS::Filespec::unixify($filename); # may have dirs
449 $modpname = VMS::Filespec::unixify($modpname); # may have dirs
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dtaint.c86 #ifdef VMS in Perl_taint_env()
122 #ifndef VMS in Perl_taint_env()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dperlport.pod62 S<Mac OS>, VMS, etc.), consider writing platform-specific code.
262 Windows, S<Mac OS>, OS/2, VMS, VOS, S<RISC OS>, and probably others.
266 DOS, OS/2, VMS, VOS, and Windows can work similarly to Unix with C</>
309 # on VMS, '[.temp]file.txt'
359 Many systems (DOS, VMS) cannot have more than one C<.> in their filenames.
425 some filesystems (most notably the ones in VMS) have versioned
439 if you really have to, make it conditional on C<$^O ne 'VMS'> since in
440 VMS the C<%ENV> table is much more than a per-process key-value string
471 if any. Third, the VMS port carefully sets up $^X and
474 then have to deal with a possible trailing version number in the VMS
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/
H A Ddie1 use if ($^O eq 'VMS'), vmsish => 'hushed';
H A Ddie_head_end8 use if $^O eq 'VMS', vmsish => 'hushed';
H A Ddie_last_minute9 use if $^O eq 'VMS', vmsish => 'hushed';
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Fcntl/
H A DFcntl.xs6 #ifdef VMS

1234567