diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:28:13 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:28:13 +0000 |
commit | 91e74348ab129f737e0d9da75481cd4eb7414ba4 (patch) | |
tree | b700d3ed7ddb36fb2d15c007f31f5bd0346d8418 | |
parent | 1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90 (diff) | |
download | perl-91e74348ab129f737e0d9da75481cd4eb7414ba4.tar.gz |
Do away with array context, from Daniel Chetlin <daniel@chetlin.com>
(either perlbug or p5p ate the original), plus regen
perlapi and perltoc.
p4raw-id: //depot/perl@6553
-rw-r--r-- | Changes | 2 | ||||
-rw-r--r-- | Changes5.004 | 2 | ||||
-rw-r--r-- | README.Y2K | 2 | ||||
-rw-r--r-- | cop.h | 2 | ||||
-rw-r--r-- | emacs/cperl-mode.el | 2 | ||||
-rw-r--r-- | ext/B/ramblings/flip-flop | 4 | ||||
-rw-r--r-- | ext/Data/Dumper/Dumper.pm | 6 | ||||
-rw-r--r-- | ext/IO/lib/IO/Handle.pm | 8 | ||||
-rw-r--r-- | ext/IO/lib/IO/Socket.pm | 2 | ||||
-rw-r--r-- | ext/Socket/Socket.pm | 4 | ||||
-rw-r--r-- | lib/CGI.pm | 4 | ||||
-rw-r--r-- | lib/CGI/Cookie.pm | 2 | ||||
-rw-r--r-- | lib/File/Temp.pm | 2 | ||||
-rw-r--r-- | lib/FileHandle.pm | 6 | ||||
-rw-r--r-- | lib/Pod/Functions.pm | 2 | ||||
-rw-r--r-- | lib/Pod/InputObjects.pm | 4 | ||||
-rw-r--r-- | lib/Pod/LaTeX.pm | 2 | ||||
-rw-r--r-- | lib/Text/Soundex.pm | 2 | ||||
-rw-r--r-- | lib/perl5db.pl | 6 | ||||
-rw-r--r-- | op.h | 2 | ||||
-rwxr-xr-x | opcode.pl | 2 | ||||
-rw-r--r-- | perlapi.c | 14 | ||||
-rw-r--r-- | pod/perlapi.pod | 3 | ||||
-rw-r--r-- | pod/perltoc.pod | 43 | ||||
-rwxr-xr-x | t/lib/dosglob.t | 2 | ||||
-rwxr-xr-x | t/lib/ftmp-posix.t | 4 | ||||
-rwxr-xr-x | t/lib/glob-global.t | 2 | ||||
-rwxr-xr-x | t/op/grent.t | 2 | ||||
-rwxr-xr-x | t/op/pwent.t | 2 | ||||
-rw-r--r-- | vms/ext/DCLsym/DCLsym.pm | 2 |
30 files changed, 79 insertions, 63 deletions
@@ -2394,7 +2394,7 @@ ____________________________________________________________________________ ! t/op/grent.t t/op/pwent.t ____________________________________________________________________________ [ 6049] By: jhi on 2000/05/02 19:06:02 - Log: Test both the scalar and array contexts. + Log: Test both the scalar and list contexts. Branch: cfgperl ! t/op/grent.t t/op/pwent.t ____________________________________________________________________________ diff --git a/Changes5.004 b/Changes5.004 index d0601663ec..2d578b43ab 100644 --- a/Changes5.004 +++ b/Changes5.004 @@ -8031,7 +8031,7 @@ This release is beta candidate #5: Our last, best hope for a beta. From: Chip Salzenberg Files: pp_hot.c - Title: "Fix grep() with refs in array context" + Title: "Fix grep() with refs in list context" From: Chip Salzenberg Files: pp.c diff --git a/README.Y2K b/README.Y2K index 378db15c11..be7ff51b68 100644 --- a/README.Y2K +++ b/README.Y2K @@ -21,7 +21,7 @@ Long answer: The question belies a true understanding of the localtime) supply adequate information to determine the year well beyond 2000 (2038 is when trouble strikes for 32-bit machines). The year returned by these functions - when used in an array context is the year minus 1900. For + when used in a list context is the year minus 1900. For years between 1910 and 1999 this happens to be a 2-digit decimal number. To avoid the year 2000 problem simply do not treat the year as a 2-digit number. It isn't. @@ -393,7 +393,7 @@ Used to indicate scalar context. See C<GIMME_V>, C<GIMME>, and L<perlcall>. =for apidoc AmU||G_ARRAY -Used to indicate array context. See C<GIMME_V>, C<GIMME> and +Used to indicate list context. See C<GIMME_V>, C<GIMME> and L<perlcall>. =for apidoc AmU||G_VOID diff --git a/emacs/cperl-mode.el b/emacs/cperl-mode.el index c6fa46c496..383d164914 100644 --- a/emacs/cperl-mode.el +++ b/emacs/cperl-mode.el @@ -7364,7 +7364,7 @@ $~ The name of the current report format. ?PATTERN? One-time pattern match. @ARGV Command line arguments (not including the command name - see $0). @INC List of places to look for perl scripts during do/include/use. -@_ Parameter array for subroutines. Also used by split unless in array context. +@_ Parameter array for subroutines. Also used by split unless in list context. \\ Creates reference to what follows, like \$var, or quotes non-\w in strings. \\0 Octal char, e.g. \\033. \\E Case modification terminator. See \\Q, \\L, and \\U. diff --git a/ext/B/ramblings/flip-flop b/ext/B/ramblings/flip-flop index e0cb8ff620..e08333d172 100644 --- a/ext/B/ramblings/flip-flop +++ b/ext/B/ramblings/flip-flop @@ -9,13 +9,13 @@ PP(pp_range) } pp_range is a LOGOP. -In array context, it just returns op_next. +In list context, it just returns op_next. In scalar context it checks the truth of targ and returns op_other if true, op_next if false. flip is an UNOP. It "looks after" its child which is always a pp_range LOGOP. -In array context, it just returns the child's op_other. +In list context, it just returns the child's op_other. In scalar context, there are three possible outcomes: (1) set child's targ to 1, our targ to 1 and return op_next. (2) set child's targ to 1, our targ to 0, sp-- and return child's op_other. diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index 93b87f9aba..0ff48e648c 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -685,7 +685,7 @@ the last. Returns the stringified form of the values stored in the object (preserving the order in which they were supplied to C<new>), subject to the -configuration options below. In an array context, it returns a list +configuration options below. In a list context, it returns a list of strings corresponding to the supplied values. The second form, for convenience, simply calls the C<new> method on its @@ -701,7 +701,7 @@ dumping subroutine references. Expects a anonymous hash of name => value pairs. Same rules apply for names as in C<new>. If no argument is supplied, will return the "seen" list of -name => value pairs, in an array context. Otherwise, returns the object +name => value pairs, in a list context. Otherwise, returns the object itself. =item I<$OBJ>->Values(I<[ARRAYREF]>) @@ -732,7 +732,7 @@ itself. Returns the stringified form of the values in the list, subject to the configuration options below. The values will be named C<$VAR>I<n> in the output, where I<n> is a numeric suffix. Will return a list of strings -in an array context. +in a list context. =back diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index 930df55fec..9d84206b5c 100644 --- a/ext/IO/lib/IO/Handle.pm +++ b/ext/IO/lib/IO/Handle.pm @@ -115,13 +115,13 @@ Returns true if the object is currently a valid file descriptor. =item $io->getline This works like <$io> described in L<perlop/"I/O Operators"> -except that it's more readable and can be safely called in an -array context but still returns just one line. +except that it's more readable and can be safely called in a +list context but still returns just one line. =item $io->getlines -This works like <$io> when called in an array context to -read all the remaining lines in a file, except that it's more readable. +This works like <$io> when called in a list context to read all +the remaining lines in a file, except that it's more readable. It will also croak() if accidentally called in a scalar context. =item $io->ungetc ( ORD ) diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index 6884f02cf8..b8da092669 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -361,7 +361,7 @@ perform the system call C<accept> on the socket and return a new object. The new object will be created in the same class as the listen socket, unless C<PKG> is specified. This object can be used to communicate with the client that was trying to connect. In a scalar context the new socket is returned, -or undef upon failure. In an array context a two-element array is returned +or undef upon failure. In a list context a two-element array is returned containing the new socket and the peer address; the list will be empty upon failure. diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm index 025888d8ab..b4a0419cbc 100644 --- a/ext/Socket/Socket.pm +++ b/ext/Socket/Socket.pm @@ -111,7 +111,7 @@ to inet_aton('255.255.255.255'). =item sockaddr_in SOCKADDR_IN -In an array context, unpacks its SOCKADDR_IN argument and returns an array +In a list context, unpacks its SOCKADDR_IN argument and returns an array consisting of (PORT, ADDRESS). In a scalar context, packs its (PORT, ADDRESS) arguments as a SOCKADDR_IN and returns it. If this is confusing, use pack_sockaddr_in() and unpack_sockaddr_in() explicitly. @@ -135,7 +135,7 @@ Will croak if the structure does not have AF_INET in the right place. =item sockaddr_un SOCKADDR_UN -In an array context, unpacks its SOCKADDR_UN argument and returns an array +In a list context, unpacks its SOCKADDR_UN argument and returns an array consisting of (PATHNAME). In a scalar context, packs its PATHNAME arguments as a SOCKADDR_UN and returns it. If this is confusing, use pack_sockaddr_un() and unpack_sockaddr_un() explicitly. diff --git a/lib/CGI.pm b/lib/CGI.pm index 63805544f8..8b7568af8a 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -3678,13 +3678,13 @@ the keys are the names of the CGI parameters, and the values are the parameters' values. The Vars() method does this. Called in a scalar context, it returns the parameter list as a tied hash reference. Changing a key changes the value of the parameter in the underlying -CGI parameter list. Called in an array context, it returns the +CGI parameter list. Called in a list context, it returns the parameter list as an ordinary hash. This allows you to read the contents of the parameter list, but not to change it. When using this, the thing you must watch out for are multivalued CGI parameters. Because a hash cannot distinguish between scalar and -array context, multivalued parameters will be returned as a packed +list context, multivalued parameters will be returned as a packed string, separated by the "\0" (null) character. You must split this packed string in order to get at the individual values. This is the convention introduced long ago by Steve Brenner in his cgi-lib.pl diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index 9e5a14b47b..575ae79458 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -382,7 +382,7 @@ Get or set the cookie's value. Example: $value = $c->value; @new_value = $c->value(['a','b','c','d']); -B<value()> is context sensitive. In an array context it will return +B<value()> is context sensitive. In a list context it will return the current value of the cookie as an array. In a scalar context it will return the B<first> value of a multivalued cookie. diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm index aac8b7a93c..48b1184eba 100644 --- a/lib/File/Temp.pm +++ b/lib/File/Temp.pm @@ -1314,7 +1314,7 @@ exits. No access to the filename is provided. sub tmpfile { - # Simply call tmpnam() in an array context + # Simply call tmpnam() in a list context my ($fh, $file) = tmpnam(); # Make sure file is removed when filehandle is closed diff --git a/lib/FileHandle.pm b/lib/FileHandle.pm index 34c3475d9c..5eb3a89adc 100644 --- a/lib/FileHandle.pm +++ b/lib/FileHandle.pm @@ -238,12 +238,12 @@ See L<perlfunc/printf>. =item $fh->getline This works like <$fh> described in L<perlop/"I/O Operators"> -except that it's more readable and can be safely called in an -array context but still returns just one line. +except that it's more readable and can be safely called in a +list context but still returns just one line. =item $fh->getlines -This works like <$fh> when called in an array context to +This works like <$fh> when called in a list context to read all the remaining lines in a file, except that it's more readable. It will also croak() if accidentally called in a scalar context. diff --git a/lib/Pod/Functions.pm b/lib/Pod/Functions.pm index 03cbf711eb..44619d53d8 100644 --- a/lib/Pod/Functions.pm +++ b/lib/Pod/Functions.pm @@ -296,7 +296,7 @@ values HASH return a list of the values in a hash vec Binary test or set particular bits in a string wait Process wait for any child process to die waitpid Process wait for a particular child process to die -wantarray Misc,Flow get list vs array context of current subroutine call +wantarray Misc,Flow get void vs scalar vs list context of current subroutine call warn I/O print debugging info write I/O print a picture record y/// String transliterate a string diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm index 849182bf37..6bc329b0cf 100644 --- a/lib/Pod/InputObjects.pm +++ b/lib/Pod/InputObjects.pm @@ -393,7 +393,7 @@ sub parse_tree { my $position = $pod_para->file_line(); Returns the current filename and line number for the paragraph -object. If called in an array context, it returns a list of two +object. If called in a list context, it returns a list of two elements: first the filename, then the line number. If called in a scalar context, it returns a string containing the filename, followed by a colon (':'), followed by the line number. @@ -686,7 +686,7 @@ sub parse_tree { my $position = $pod_seq->file_line(); Returns the current filename and line number for the interior sequence -object. If called in an array context, it returns a list of two +object. If called in a list context, it returns a list of two elements: first the filename, then the line number. If called in a scalar context, it returns a string containing the filename, followed by a colon (':'), followed by the line number. diff --git a/lib/Pod/LaTeX.pm b/lib/Pod/LaTeX.pm index 8adb58921c..208a1130b7 100644 --- a/lib/Pod/LaTeX.pm +++ b/lib/Pod/LaTeX.pm @@ -675,7 +675,7 @@ pushed onto this stack. When the list context ends, it is popped from the stack. The array will be empty if no lists are active. -Returns array of list information in array context +Returns array of list information in list context Returns array ref in scalar context =cut diff --git a/lib/Text/Soundex.pm b/lib/Text/Soundex.pm index 3079b90612..d5887640b8 100644 --- a/lib/Text/Soundex.pm +++ b/lib/Text/Soundex.pm @@ -108,7 +108,7 @@ many people seem to prefer an I<unlikely> value like C<Z000> can be assigned to C<$soundex_nocode>. In scalar context C<soundex> returns the soundex code of its first -argument, and in array context a list is returned in which each element is the +argument, and in list context a list is returned in which each element is the soundex code for the corresponding argument passed to C<soundex> e.g. @codes = soundex qw(Mike Stok); diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 7257aa90d4..e68c13e79c 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -2160,8 +2160,8 @@ B<W> Delete all watch-expressions. B<V> [I<pkg> [I<vars>]] List some (default all) variables in package (default current). Use B<~>I<pattern> and B<!>I<pattern> for positive and negative regexps. B<X> [I<vars>] Same as \"B<V> I<currentpackage> [I<vars>]\". -B<x> I<expr> Evals expression in array context, dumps the result. -B<m> I<expr> Evals expression in array context, prints methods callable +B<x> I<expr> Evals expression in list context, dumps the result. +B<m> I<expr> Evals expression in list context, prints methods callable on the first element of the result. B<m> I<class> Prints methods callable via the given class. @@ -2256,7 +2256,7 @@ I<Debugger controls:> B<L> List break/watch/act B<|>[B<|>]I<db_cmd> Send output to pager B<$psh>\[B<$psh>\] I<syscmd> Run cmd in a subprocess B<q> or B<^D> Quit B<R> Attempt a restart I<Data Examination:> B<expr> Execute perl code, also see: B<s>,B<n>,B<t> I<expr> - B<x>|B<m> I<expr> Evals expr in array context, dumps the result or lists methods. + B<x>|B<m> I<expr> Evals expr in list context, dumps the result or lists methods. B<p> I<expr> Print expression (uses script's current package). B<S> [[B<!>]I<pat>] List subroutine names [not] matching pattern B<V> [I<Pk> [I<Vars>]] List Variables in Package. Vars can be ~pattern or !pattern. @@ -55,7 +55,7 @@ typedef U32 PADOFFSET; /* =for apidoc Amn|U32|GIMME_V The XSUB-writer's equivalent to Perl's C<wantarray>. Returns C<G_VOID>, -C<G_SCALAR> or C<G_ARRAY> for void, scalar or array context, +C<G_SCALAR> or C<G_ARRAY> for void, scalar or list context, respectively. =for apidoc Amn|U32|GIMME @@ -321,7 +321,7 @@ sub tab { # trans not OK (dTARG; TARG = sv_newmortal();) # ucfirst etc not OK: TMP arg processed inplace # quotemeta not OK (unsafe when TARG == arg) -# each repeat not OK too due to array context +# each repeat not OK too due to list context # pack split - unknown whether they are safe # sprintf: is calling do_sprintf(TARG,...) which can act on TARG # before other args are processed. @@ -829,6 +829,13 @@ Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix); } +#undef Perl_gv_efullname4 +void +Perl_gv_efullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain) +{ + ((CPerlObj*)pPerl)->Perl_gv_efullname4(sv, gv, prefix, keepmain); +} + #undef Perl_gv_fetchfile GV* Perl_gv_fetchfile(pTHXo_ const char* name) @@ -878,6 +885,13 @@ Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix); } +#undef Perl_gv_fullname4 +void +Perl_gv_fullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain) +{ + ((CPerlObj*)pPerl)->Perl_gv_fullname4(sv, gv, prefix, keepmain); +} + #undef Perl_gv_init void Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi) diff --git a/pod/perlapi.pod b/pod/perlapi.pod index 4a7573babd..3eda765382 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -1941,7 +1941,8 @@ Found in file sv.h =item SvLEN -Returns the size of the string buffer in the SV. See C<SvCUR>. +Returns the size of the string buffer in the SV, not including any part +attributable to C<SvOOK>. See C<SvCUR>. STRLEN SvLEN(SV* sv) diff --git a/pod/perltoc.pod b/pod/perltoc.pod index 74c1f4ed91..bbd842af51 100644 --- a/pod/perltoc.pod +++ b/pod/perltoc.pod @@ -585,26 +585,25 @@ import, index STR,SUBSTR,POSITION, index STR,SUBSTR, int EXPR, int, ioctl FILEHANDLE,FUNCTION,SCALAR, join EXPR,LIST, keys HASH, kill SIGNAL, LIST, last LABEL, last, lc EXPR, lc, lcfirst EXPR, lcfirst, length EXPR, length, link OLDFILE,NEWFILE, listen SOCKET,QUEUESIZE, local EXPR, localtime EXPR, -lock, log EXPR, log, lstat FILEHANDLE, lstat EXPR, lstat, m//, map BLOCK -LIST, map EXPR,LIST, mkdir FILENAME,MASK, mkdir FILENAME, msgctl -ID,CMD,ARG, msgget KEY,FLAGS, msgrcv ID,VAR,SIZE,TYPE,FLAGS, msgsnd -ID,MSG,FLAGS, my EXPR, my EXPR : ATTRIBUTES, next LABEL, next, no Module -LIST, oct EXPR, oct, open FILEHANDLE,MODE,LIST, open FILEHANDLE,EXPR, open -FILEHANDLE, opendir DIRHANDLE,EXPR, ord EXPR, ord, our EXPR, pack -TEMPLATE,LIST, package, package NAMESPACE, pipe READHANDLE,WRITEHANDLE, pop -ARRAY, pop, pos SCALAR, pos, print FILEHANDLE LIST, print LIST, print, -printf FILEHANDLE FORMAT, LIST, printf FORMAT, LIST, prototype FUNCTION, -push ARRAY,LIST, q/STRING/, qq/STRING/, qr/STRING/, qx/STRING/, qw/STRING/, -quotemeta EXPR, quotemeta, rand EXPR, rand, read -FILEHANDLE,SCALAR,LENGTH,OFFSET, read FILEHANDLE,SCALAR,LENGTH, readdir -DIRHANDLE, readline EXPR, readlink EXPR, readlink, readpipe EXPR, recv -SOCKET,SCALAR,LENGTH,FLAGS, redo LABEL, redo, ref EXPR, ref, rename -OLDNAME,NEWNAME, require VERSION, require EXPR, require, reset EXPR, reset, -return EXPR, return, reverse LIST, rewinddir DIRHANDLE, rindex -STR,SUBSTR,POSITION, rindex STR,SUBSTR, rmdir FILENAME, rmdir, s///, scalar -EXPR, seek FILEHANDLE,POSITION,WHENCE, seekdir DIRHANDLE,POS, select -FILEHANDLE, select, select RBITS,WBITS,EBITS,TIMEOUT, semctl -ID,SEMNUM,CMD,ARG, semget KEY,NSEMS,FLAGS, semop KEY,OPSTRING, send +lock, log EXPR, log, lstat EXPR, lstat, m//, map BLOCK LIST, map EXPR,LIST, +mkdir FILENAME,MASK, mkdir FILENAME, msgctl ID,CMD,ARG, msgget KEY,FLAGS, +msgrcv ID,VAR,SIZE,TYPE,FLAGS, msgsnd ID,MSG,FLAGS, my EXPR, my EXPR : +ATTRIBUTES, next LABEL, next, no Module LIST, oct EXPR, oct, open +FILEHANDLE,MODE,LIST, open FILEHANDLE,EXPR, open FILEHANDLE, opendir +DIRHANDLE,EXPR, ord EXPR, ord, our EXPR, pack TEMPLATE,LIST, package, +package NAMESPACE, pipe READHANDLE,WRITEHANDLE, pop ARRAY, pop, pos SCALAR, +pos, print FILEHANDLE LIST, print LIST, print, printf FILEHANDLE FORMAT, +LIST, printf FORMAT, LIST, prototype FUNCTION, push ARRAY,LIST, q/STRING/, +qq/STRING/, qr/STRING/, qx/STRING/, qw/STRING/, quotemeta EXPR, quotemeta, +rand EXPR, rand, read FILEHANDLE,SCALAR,LENGTH,OFFSET, read +FILEHANDLE,SCALAR,LENGTH, readdir DIRHANDLE, readline EXPR, readlink EXPR, +readlink, readpipe EXPR, recv SOCKET,SCALAR,LENGTH,FLAGS, redo LABEL, redo, +ref EXPR, ref, rename OLDNAME,NEWNAME, require VERSION, require EXPR, +require, reset EXPR, reset, return EXPR, return, reverse LIST, rewinddir +DIRHANDLE, rindex STR,SUBSTR,POSITION, rindex STR,SUBSTR, rmdir FILENAME, +rmdir, s///, scalar EXPR, seek FILEHANDLE,POSITION,WHENCE, seekdir +DIRHANDLE,POS, select FILEHANDLE, select, select RBITS,WBITS,EBITS,TIMEOUT, +semctl ID,SEMNUM,CMD,ARG, semget KEY,NSEMS,FLAGS, semop KEY,OPSTRING, send SOCKET,MSG,FLAGS,TO, send SOCKET,MSG,FLAGS, setpgrp PID,PGRP, setpriority WHICH,WHO,PRIORITY, setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL, shift ARRAY, shift, shmctl ID,CMD,ARG, shmget KEY,SIZE,FLAGS, shmread ID,VAR,POS,SIZE, @@ -960,7 +959,7 @@ OS/2, MS-DOS, Win95/NT, Macintosh, VMS =item Command Switches -B<-0>[I<digits>], B<-a>, B<-C>, B<-c>, B<-d>, B<-d:>I<foo>, +B<-0>[I<digits>], B<-a>, B<-C>, B<-c>, B<-d>, B<-d:>I<foo[=bar,baz]>, B<-D>I<letters>, B<-D>I<number>, B<-e> I<commandline>, B<-F>I<pattern>, B<-h>, B<-i>[I<extension>], B<-I>I<directory>, B<-l>[I<octnum>], B<-m>[B<->]I<module>, B<-M>[B<->]I<module>, B<-M>[B<->]I<'module ...'>, @@ -3770,6 +3769,8 @@ A, p, d, s, n, r, f, m, o, j, x =over +=item Formatted Printing of IVs and UVs + =item Source Documentation =back diff --git a/t/lib/dosglob.t b/t/lib/dosglob.t index ea537bf6d1..91aa6cc8a9 100755 --- a/t/lib/dosglob.t +++ b/t/lib/dosglob.t @@ -39,7 +39,7 @@ while (defined($_ = <*/a*.t>)) { print "not " if @r != $r; print "ok 4\n"; -# check if array context works +# check if list context works @r = (); for (<*/a*.t>) { print "# $_\n"; diff --git a/t/lib/ftmp-posix.t b/t/lib/ftmp-posix.t index 6802374b10..8c9fd554e7 100755 --- a/t/lib/ftmp-posix.t +++ b/t/lib/ftmp-posix.t @@ -25,11 +25,11 @@ ok( !(-e $tmpnam )); print "# TMPNAM file name: $tmpnam\n"; -# TMPNAM array context +# TMPNAM list context # Not strict posix behaviour (my $fh, $tmpnam) = tmpnam(); -print "# TMPNAM: in array context: $fh $tmpnam\n"; +print "# TMPNAM: in list context: $fh $tmpnam\n"; # File is opened - make sure it exists ok( (-e $tmpnam )); diff --git a/t/lib/glob-global.t b/t/lib/glob-global.t index 9d273bd1ed..0045f891fa 100755 --- a/t/lib/glob-global.t +++ b/t/lib/glob-global.t @@ -56,7 +56,7 @@ while (defined($_ = <*/*.t>)) { print "not " if @r != $r; print "ok 5\n"; -# check if array context works +# check if list context works @r = (); for (<*/*.t>) { #print "# $_\n"; diff --git a/t/op/grent.t b/t/op/grent.t index f2b5b9cabd..27c9427f27 100755 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -140,7 +140,7 @@ print "ok ", $tst++; print "\t# (not necessarily serious: run t/op/grent.t by itself)" if $not; print "\n"; -# Test both the scalar and array contexts. +# Test both the scalar and list contexts. my @gr1; diff --git a/t/op/pwent.t b/t/op/pwent.t index c09d7c2405..ea89505291 100755 --- a/t/op/pwent.t +++ b/t/op/pwent.t @@ -137,7 +137,7 @@ print "ok ", $tst++; print "\t# (not necessarily serious: run t/op/pwent.t by itself)" if $not; print "\n"; -# Test both the scalar and array contexts. +# Test both the scalar and list contexts. my @pw1; diff --git a/vms/ext/DCLsym/DCLsym.pm b/vms/ext/DCLsym/DCLsym.pm index 7989cee0ad..99adb94522 100644 --- a/vms/ext/DCLsym/DCLsym.pm +++ b/vms/ext/DCLsym/DCLsym.pm @@ -215,7 +215,7 @@ C<tie> described above. If called in a scalar context, C<getsym> returns the value of the symbol whose name is given as the argument to the call, or C<undef> if no such symbol exists. Symbols in the local symbol table are always used in preference to -symbols in the global symbol table. If called in an array context, C<getsym> +symbols in the global symbol table. If called in a list context, C<getsym> returns a two-element list, whose first element is the value of the symbol, and whose second element is the string 'GLOBAL' or 'LOCAL', indicating the table from which the symbol's value was read. |