Hi,
I have very little time to discuss this: makes perlvms.pod podchecker
clean (by removing the < and > from the email addresses) and adds a
discussion of PERL_MBX_SIZE.
Does this look OK?
--- vms/perlvms.pod_old Thu Apr 25 12:56:45 2002
+++ vms/perlvms.pod Sun Apr 28 10:28:57 2002
@@ -46,7 +46,6 @@
image, and will therefore require all downstream shareable images to be
INSTALLed, etc.)
-
Finally, F<Perl.Exe> is an executable image containing the main
entry point for Perl, as well as some initialization code. It
should be placed in a public directory, and made world executable.
@@ -231,6 +230,19 @@
argument to the C<system> operator (see below). In this case,
Perl will wait for the subprocess to complete before continuing.
+The mailbox (MBX) that perl can create to communicate with a pipe
+defaults to a record size of 512. The default record size is
+adujustable via the logical name PERL_MBX_SIZE provided that the
+value falls between 128 and the SYSGEN parameter MAXBUF inclusive.
+For example, to double the MBX size from the default within
+a Perl program use C<$ENV{'PERL_MBX_SIZE'} == 1024;> and then
+open and use pipe constructs. An alternative would be to issue
+the command:
+
+ $ Define PERL_MBX_SIZE "1024"
+
+before running your wide record pipe program.
+
=head1 PERL5LIB and PERLLIB
The PERL5LIB and PERLLIB logical names work as documented in L<perl>,
@@ -298,10 +310,10 @@
=item -S
-If the C<-S> switch is present I<and> the script name does
-not contain a directory, then Perl translates the logical
-name DCL$PATH as a searchlist, using each translation as
-a directory in which to look for the script. In addition,
+If the C<"-S"> or C<-"S"> switch is present I<and> the script
+name does not contain a directory, then Perl translates the
+logical name DCL$PATH as a searchlist, using each translation
+as a directory in which to look for the script. In addition,
if no file type is specified, Perl looks in each directory
for a file matching the name specified, with a blank type,
a type of F<.pl>, and a type of F<.com>, in that order.
@@ -445,15 +457,15 @@
password strings; you'll have to upcase the arguments to
C<crypt> to insure that you'll get the proper value:
- sub validate_passwd {
- my($user,$passwd) = @_;
- my($pwdhash);
- if ( !($pwdhash = (getpwnam($user))[1]) ||
- $pwdhash ne crypt("\U$passwd","\U$name") ) {
- intruder_alert($name);
+ sub validate_passwd {
+ my($user,$passwd) = @_;
+ my($pwdhash);
+ if ( !($pwdhash = (getpwnam($user))[1]) ||
+ $pwdhash ne crypt("\U$passwd","\U$name") ) {
+ intruder_alert($name);
+ }
+ return 1;
}
- return 1;
- }
=item dump
@@ -808,8 +820,8 @@
by saying
foreach my $key (qw[C-local keys you want promoted]) {
- my $temp = $ENV{$key}; # read from C-local array
- $ENV{$key} = $temp; # and define as logical name
+ my $temp = $ENV{$key}; # read from C-local array
+ $ENV{$key} = $temp; # and define as logical name
}
(You can't just say C<$ENV{$key} = $ENV{$key}>, since the
@@ -911,11 +923,11 @@
=head1 Revision date
-This document was last updated on 2-Oct-2001, for Perl 5,
+This document was last updated on 28-Apr-2002, for Perl 5,
patchlevel 8.
=head1 AUTHOR
-Charles Bailey <[EMAIL PROTECTED]>
-Craig Berry <[EMAIL PROTECTED]>
-Dan Sugalski <[EMAIL PROTECTED]>
+Charles Bailey [EMAIL PROTECTED]
+Craig Berry [EMAIL PROTECTED]
+Dan Sugalski [EMAIL PROTECTED]
End of Patch.
Peter Prymmer
