Lines Matching full:vms

14     $code = "\"" . $code . "\"" if $^O eq 'VMS'; #VMS needs quotes for this.
19     $numtests = ($^O eq 'VMS') ? 16 : 17;
25 if ($^O eq 'VMS') {
26     if (eval 'require VMS::Feature') {
27         $vms_exit_mode = !(VMS::Feature::current("posix_exit"));
46    $native_success = 1 if $^O eq 'VMS';
73     skip("Skip signals and core dump tests on Win32 and VMS", 7) 
74         if ($^O eq 'MSWin32' || $^O eq 'VMS');
76     #TODO VMS will backtrace on this test and exits with code of 0
96 if ($^O eq 'VMS') {
98 # On VMS, successful returns from system() are reported 0,  VMS errors that
101 # VMS systems and passed through.  Programs written to use _POSIX_EXIT()
106 # For native VMS status codes, success codes are odd numbered, error codes
112 # even though Perl will exit with them having the VMS status codes.
114 # Note that this is testing the perl exit() routine, and not the VMS
124   is( ${^CHILD_ERROR_NATIVE} & 7, 1, 'VMS success exit' );
128   is( ${^CHILD_ERROR_NATIVE} & 7, 3, 'VMS informational exit' );
132   is( ${^CHILD_ERROR_NATIVE} & 7, 0, 'VMS warning exit' );
136   is( ${^CHILD_ERROR_NATIVE} & 7, 2, 'VMS error exit' );
140   is( ${^CHILD_ERROR_NATIVE} & 7, 4, 'VMS fatal exit' );
152 # On VMS, in the child process the actual exit status will be SS$_ABORT,
155 # 65535 internally when there is a VMS status code that is valid, and
158 # In this test on VMS, the child process exit with a SS$_ABORT, which
160 # then translated to the UNIX code EINTR which has the value of 4 on VMS.