(via private mail)

	Message-id: <01J1FH7R43NS002F14@cor.newman.upenn.edu>
	Subject: [Patch 5.005_02] Miscellaneous VMS cleanup

p4raw-id: //depot/perl@1837

4 files changed, 26 insertions, 4 deletions

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 20cae6c197..f1810b358f 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1258,7 +1258,6 @@ Did you forget to check the return value of your socket() call?
 (S) A warning peculiar to VMS.  The call to C<sys$getuai> underlying the
 C<getpwnam> operator returned an invalid UIC.
 
-
 =item Glob not terminated
 
 (F) The lexer saw a left angle bracket in a place where it was expecting
@@ -1703,6 +1702,14 @@ an attempt to close an unopened filehandle.
 (W) You specified a signal name as a subscript to %SIG that was not recognized.
 Say C<kill -l> in your shell to see the valid signal names on your system.
 
+=item no UTC offset information; assuming local time is UTC
+
+(S) A warning peculiar to VMS.  Per was unable to find the local
+timezone offset, so it's assuming that local system time is equivalent
+to UTC.  If it's not, define the logical name F<SYS$TIMEZONE_DIFFERENTIAL>
+to translate to the number of seconds which need to be added to UTC to
+get local time.
+
 =item Not a CODE reference
 
 (F) Perl was trying to evaluate a reference to a code value (that is, a
@@ -2037,7 +2044,7 @@ anyway?  See L<perlfunc/require>.
 
 (F) The setuid emulator in suidperl decided you were up to no good.
 
-=item pid %d not a child
+=item pid %x not a child
 
 (W) A warning peculiar to VMS.  Waitpid() was asked to wait for a process which
 isn't a subprocess of the current process.  While this is fine from VMS'
diff --git a/pod/perlfaq1.pod b/pod/perlfaq1.pod
index 5a95f19c79..c6d53b3161 100644
--- a/pod/perlfaq1.pod
+++ b/pod/perlfaq1.pod
@@ -36,7 +36,7 @@ In particular, the core development team (known as the Perl
 Porters) are a rag-tag band of highly altruistic individuals
 committed to producing better software for free than you
 could hope to purchase for money.  You may snoop on pending
-developments via news://genetics.upenn.edu/perl.porters-gw/ and
+developments via news://news.perl.com/perl.porters-gw/ and
 http://www.frii.com/~gnat/perl/porters/summary.html.
 
 While the GNU project includes Perl in its distributions, there's no
diff --git a/pod/perlport.pod b/pod/perlport.pod
index 0b9d054fc3..4ff24824c4 100644
--- a/pod/perlport.pod
+++ b/pod/perlport.pod
@@ -1429,7 +1429,7 @@ First public release with perl5.005.
 =head1 AUTHORS / CONTRIBUTORS
 
 Abigail E<lt>abigail@fnx.comE<gt>,
-Charles Bailey E<lt>bailey@genetics.upenn.eduE<gt>,
+Charles Bailey E<lt>bailey@newman.upenn.eduE<gt>,
 Graham Barr E<lt>gbarr@pobox.comE<gt>,
 Tom Christiansen E<lt>tchrist@perl.comE<gt>,
 Nicholas Clark E<lt>Nicholas.Clark@liverpool.ac.ukE<gt>,
diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index a0c85b917b..6ea5a1dbfb 100644
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -129,6 +129,21 @@ and a Perl library file.
 Macintosh perl scripts will have the appropriate Creator and
 Type, so that double-clicking them will invoke the perl application.
 
+=item VMS
+
+Put
+
+    $ perl -mysw 'f$env("procedure")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !
+    $ exit++ + ++$status != 0 and $exit = $status = undef;
+
+at the top of your script, where C<-mysw> are any command line switches you
+want to pass to Perl.  You can now invoke the script directly, by saying
+C<perl script>, or as a DCL procedure, by saying C<@script> (or implicitly
+via F<DCL$PATH> by just using the name of the script).
+
+This incantation is a bit much to remember, but Perl will display it for
+you if you say C<perl "-V:startperl">.
+
 =back
 
 Command-interpreters on non-Unix systems have rather different ideas