From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 6 Jun 2001 17:54:30 +0000 (-0500)
Subject: fix old $^S description in perlvms.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b0c4952078f6a5640e812bd1ab5869d6275f2ae;p=p5sagit%2Fp5-mst-13.2.git

fix old $^S description in perlvms.pod
Message-Id: <5.1.0.14.0.20010606174814.03c2c880@exchi01>

p4raw-id: //depot/perl@10462
---

diff --git a/vms/perlvms.pod b/vms/perlvms.pod
index f43cbb0..48deedc 100644
--- a/vms/perlvms.pod
+++ b/vms/perlvms.pod
@@ -575,10 +575,9 @@ B<SPAWN> at the DCL prompt.
 Perl waits for the subprocess to complete before continuing
 execution in the current process.  As described in L<perlfunc>,
 the return value of C<system> is a fake "status" which follows
-POSIX semantics; see the description of C<$?> in this document
-for more detail.  The actual VMS exit status of the subprocess
-is available in C<$^S> (as long as you haven't used another Perl
-function that resets C<$?> and C<$^S> in the meantime).
+POSIX semantics unless the pragma C<use vmsish status> is in 
+effect; see the description of C<$?> in this document for more 
+detail.  
 
 =item time
 
@@ -845,15 +844,11 @@ severity was success or informational, these bits are all 0;
 otherwise, they contain the severity value shifted left one bit.
 As a result, C<$?> will always be zero if the subprocess' exit
 status indicated successful completion, and non-zero if a
-warning or error occurred.  The actual VMS exit status may
-be found in C<$^S> (q.v.).
+warning or error occurred.  
 
-=item $^S
-
-Under VMS, this is the 32-bit VMS status value returned by the
-last subprocess to complete.  Unlike C<$?>, no manipulation
-is done to make this look like a POSIX wait(5) value, so it
-may be treated as a normal VMS status value.
+The pragma C<use vmsish 'status'> makes C<$?> reflect the actual 
+VMS exit status, instead of the default emulation of POSIX status 
+described above.
 
 =item $|