From: Peter Prymmer Date: Mon, 29 Apr 2002 17:58:06 +0000 (-0400) Subject: update to vms/perlvms.pod X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=376ae1f184c4671a6370f93974d0e806cc059f9c;p=p5sagit%2Fp5-mst-13.2.git update to vms/perlvms.pod Message-ID: p4raw-id: //depot/perl@16274 --- diff --git a/vms/perlvms.pod b/vms/perlvms.pod index 35776a4..b693f95 100644 --- a/vms/perlvms.pod +++ b/vms/perlvms.pod @@ -231,6 +231,20 @@ string between the backticks is handled as if it were the argument to the C 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 buffer size of 512. The default buffer 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. A larger value may +improve performance at the expense of the BYTLM UAF quota. + =head1 PERL5LIB and PERLLIB The PERL5LIB and PERLLIB logical names work as documented in L, @@ -298,10 +312,10 @@ not remain as a previous version under the original filename.) =item -S -If the C<-S> switch is present I 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 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 +459,15 @@ the UAF was generated using uppercase username and password strings; you'll have to upcase the arguments to C 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 @@ -669,17 +683,12 @@ time of the file (VMS revision date). =item waitpid PID,FLAGS If PID is a subprocess started by a piped C (see L), -C will wait for that subprocess, and return its final -status value in C<$?>. If PID is a subprocess created in some other -way (e.g. SPAWNed before Perl was invoked), or is not a subprocess -of the current process, C will attempt to read from the -process's termination mailbox, making the final status available in -C<$?> when the process completes. If the process specified by PID -has no termination mailbox, C will simply check once per -second whether the process has completed, and return when it has. -(If PID specifies a process that isn't a subprocess of the current -process, and you invoked Perl with the C<-w> switch, a warning will -be issued.) +C will wait for that subprocess, and return its final status +value in C<$?>. If PID is a subprocess created in some other way (e.g. +SPAWNed before Perl was invoked), C will simply check once per +second whether the process has completed, and return when it has. (If +PID specifies a process that isn't a subprocess of the current process, +and you invoked Perl with the C<-w> switch, a warning will be issued.) Returns PID on success, -1 on error. The FLAGS argument is ignored in all cases. @@ -808,8 +817,8 @@ process, which will then be inherited by all subprocesses, 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 +920,11 @@ problems. =head1 Revision date -This document was last updated on 2-Oct-2001, for Perl 5, +This document was last updated on 29-Apr-2002, for Perl 5, patchlevel 8. =head1 AUTHOR -Charles Bailey -Craig Berry -Dan Sugalski +Charles Bailey bailey@cor.newman.upenn.edu +Craig Berry craigberry@mac.com +Dan Sugalski dan@sidhe.org