This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tweak some op names in change#4177 (will any of this break code that
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 18 Sep 1999 03:14:58 +0000 (03:14 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 18 Sep 1999 03:14:58 +0000 (03:14 +0000)
gropes $@ ?)

p4raw-link: @4177 on //depot/cfgperl: 42d382189339e56f3bd13a71933349bc8b7e8b42

p4raw-id: //depot/perl@4189

Changes
opcode.h
opcode.pl
t/io/open.t
t/op/misc.t
t/pragma/warn/op

diff --git a/Changes b/Changes
index 8f0fb75..264c56b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -79,6 +79,207 @@ Version 5.005_62        Development release working toward 5.006
 ----------------
 
 ____________________________________________________________________________
+[  4188] By: jhi                                   on 1999/09/17  21:30:08
+        Log: Pick up the typo fix.
+     Branch: cfgperl
+         !> t/io/open.t
+____________________________________________________________________________
+[  4187] By: gsar                                  on 1999/09/17  21:13:55
+        Log: fix typo
+     Branch: perl
+          ! t/io/open.t
+____________________________________________________________________________
+[  4186] By: gsar                                  on 1999/09/17  20:57:29
+        Log: integrate cfgperl change
+     Branch: perl
+         !> vms/subconfigure.com
+____________________________________________________________________________
+[  4185] By: jhi                                   on 1999/09/17  20:46:41
+        Log: Re-apply applicable parts of #3993, #3994, and #3995.
+     Branch: cfgperl
+          ! vms/subconfigure.com
+____________________________________________________________________________
+[  4184] By: gsar                                  on 1999/09/17  20:26:02
+        Log: integrate cfgperl contents into mainline
+     Branch: perl
+         +> lib/unicode/ArabShap.txt lib/unicode/Blocks.txt
+         +> lib/unicode/CompExcl.txt lib/unicode/EAWidth.txt
+         +> lib/unicode/Index.txt lib/unicode/Jamo-2.txt
+         +> lib/unicode/LineBrk.txt lib/unicode/Names.txt
+         +> lib/unicode/Props.txt lib/unicode/ReadMe.txt
+         +> lib/unicode/SpecCase.txt
+          - lib/unicode/arabshp.txt lib/unicode/blocks.txt
+          - lib/unicode/index2.txt lib/unicode/jamo2.txt
+          - lib/unicode/names2.txt lib/unicode/props2.txt
+          - lib/unicode/readme.txt
+         !> (integrate 73 files)
+____________________________________________________________________________
+[  4183] By: jhi                                   on 1999/09/17  20:25:51
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+         !> configure.com ext/ByteLoader/byterun.h
+         !> ext/DynaLoader/DynaLoader_pm.PL lib/ExtUtils/MM_VMS.pm
+         !> lib/File/Spec/VMS.pm pod/perlhist.pod t/io/open.t
+         !> vms/descrip_mms.template vms/gen_shrfls.pl vms/perly_c.vms
+         !> vms/perly_h.vms vms/subconfigure.com vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[  4182] By: gsar                                  on 1999/09/17  20:16:28
+        Log: integrate vmsperl contents into mainline (where VMS files conflicted,
+             vmsperl contents have prevailed)
+     Branch: perl
+         !> configure.com ext/ByteLoader/byterun.h
+         !> ext/DynaLoader/DynaLoader_pm.PL lib/ExtUtils/MM_VMS.pm
+         !> lib/File/Spec/VMS.pm t/io/open.t vms/descrip_mms.template
+         !> vms/gen_shrfls.pl vms/perly_c.vms vms/perly_h.vms
+         !> vms/subconfigure.com vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[  4181] By: jhi                                   on 1999/09/17  20:12:37
+        Log: From: Michael G Schwern <schwern@pobox.com>
+             To: perl5-porters@perl.org
+             Subject: [PATCH 5.005_60 lib/Exporter/Heavy.pm] export_to_level()
+             Date: Thu, 19 Aug 1999 21:30:01 -0400
+             Message-ID: <19990819213001.A22512@athens.aocn.com>
+     Branch: cfgperl
+          ! lib/Exporter/Heavy.pm
+____________________________________________________________________________
+[  4180] By: gsar                                  on 1999/09/17  20:11:00
+        Log: perlhist additions
+     Branch: perl
+          ! pod/perlhist.pod
+____________________________________________________________________________
+[  4179] By: jhi                                   on 1999/09/17  20:08:00
+        Log: The change #4176 should've undone only the test, not the code patch.
+     Branch: cfgperl
+          ! doio.c
+____________________________________________________________________________
+[  4178] By: jhi                                   on 1999/09/17  20:06:08
+        Log: From: Ian Phillipps <ian@dial.pipex.com>
+             To: Hans GINZEL <hgin2088@mail.kolej.mff.cuni.cz>, perl5-porters@perl.org
+             Subject: [PATCH 5.005_59] Re: [ID 19990820.007] Small typo in perlsyn.pod
+             Date: Sat, 21 Aug 1999 12:36:12 +0100
+             Message-ID: <19990821123612.A9955@homer.diplex.co.uk>
+     Branch: cfgperl
+          ! pod/perlsyn.pod
+____________________________________________________________________________
+[  4177] By: jhi                                   on 1999/09/17  20:00:19
+        Log: More descriptive names for operators.
+             
+             From: Michael G Schwern <schwern@pobox.com>
+             To: Ilya Zakharevich <ilya@math.ohio-state.edu>
+             Cc: perl5-porters@perl.org
+             Subject: Re: [ID 19990817.009] [BUG 5.005_60 & 5.005_03] == reported as eq in
+             Date: Tue, 17 Aug 1999 18:35:45 -0400
+             Message-ID: <19990817183545.A23073@toldyouso.com>
+             
+             From: Michael G Schwern <schwern@pobox.com>
+             To: perl5-porters@perl.org
+             Subject: [PATCH 5.005_60 opcode.pl and friends] Improved opcode descriptions
+             Date: Wed, 18 Aug 1999 03:53:38 -0400
+             Message-ID: <19990818035337.A31505@athens.aocn.com>
+     Branch: cfgperl
+          ! opcode.h opcode.pl pp.sym pp_proto.h sv.c t/op/misc.t
+          ! t/pragma/warn/op t/pragma/warn/sv
+____________________________________________________________________________
+[  4176] By: jhi                                   on 1999/09/17  18:19:18
+        Log: Take away the infamous io/dup.t #7.
+             It seems there simply is no way to portably
+             "flush" an input file handle.
+     Branch: cfgperl
+          ! doio.c t/io/dup.t
+____________________________________________________________________________
+[  4175] By: jhi                                   on 1999/09/17  14:45:08
+        Log: From: Barrie Slaymaker <barries@slaysys.com>
+             To: perl5-porters@perl.org
+             Subject: [PATCH 5.005_61] Benchmark: screwed patch format, try this instead
+             Date: Fri, 17 Sep 1999 11:16:48 -0400
+             Message-Id: <199909171516.LAA30887@jester.slaysys.com>
+     Branch: cfgperl
+          ! lib/Benchmark.pm
+____________________________________________________________________________
+[  4174] By: jhi                                   on 1999/09/17  14:07:16
+        Log: UNICOS does support large files but doesn't support sparse files
+             so we cannot easily test for large file support.
+     Branch: cfgperl
+          ! t/lib/syslfs.t t/op/lfs.t
+____________________________________________________________________________
+[  4173] By: jhi                                   on 1999/09/17  14:03:44
+        Log: UNICOS has sloppy division/modulo for floating point numbers.
+     Branch: cfgperl
+          ! t/op/arith.t
+____________________________________________________________________________
+[  4172] By: jhi                                   on 1999/09/17  13:47:49
+        Log: Portable blocksize (replaces #4171).
+     Branch: cfgperl
+          ! t/lib/syslfs.t t/op/lfs.t
+____________________________________________________________________________
+[  4171] By: jhi                                   on 1999/09/17  13:08:54
+        Log: (replaced by #4172)
+     Branch: cfgperl
+          ! t/lib/syslfs.t t/op/lfs.t
+____________________________________________________________________________
+[  4170] By: jhi                                   on 1999/09/17  12:59:11
+        Log: Detypo #4169.
+     Branch: cfgperl
+          ! t/lib/syslfs.t t/op/lfs.t
+____________________________________________________________________________
+[  4169] By: jhi                                   on 1999/09/17  12:16:34
+        Log: Diagnose possible quota limits.
+     Branch: cfgperl
+          ! t/lib/syslfs.t t/op/lfs.t
+____________________________________________________________________________
+[  4168] By: jhi                                   on 1999/09/17  12:10:43
+        Log: UNICOS doesn't have getpgid().  Or, at least 9.0.1ai
+             doesn't have one that wouldn't cause SIGSYS.  UNICOS
+             does have getpgrp(void) so Perl getpgrp() is happy.
+     Branch: cfgperl
+          ! hints/unicos.sh
+____________________________________________________________________________
+[  4167] By: jhi                                   on 1999/09/17  11:49:30
+        Log: Filesystem quotas may stop you from using large files.
+     Branch: cfgperl
+          ! pod/perldelta.pod t/lib/syslfs.t t/op/lfs.t
+____________________________________________________________________________
+[  4166] By: jhi                                   on 1999/09/17  11:36:01
+        Log: Too strict pattern for parsing group lists.
+     Branch: cfgperl
+          ! t/op/groups.t
+____________________________________________________________________________
+[  4165] By: jhi                                   on 1999/09/17  09:06:18
+        Log: Configure maintenance. It's sigaction.sa_flags
+             and the Glossary regen'ed.
+     Branch: cfgperl
+          ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+          ! config_h.SH
+     Branch: metaconfig
+          ! U/compline/d_sigaction.U
+____________________________________________________________________________
+[  4164] By: jhi                                   on 1999/09/15  06:57:51
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+         +> jpl/JNI/Closer.java jpl/JNI/JNIConfig jpl/JNI/JNIConfig.Win32
+         +> jpl/JNI/JNIConfig.kaffe jpl/JNI/JNIConfig.noembed
+         +> jpl/JNI/JNIConfig.standard jpl/JNI/typemap.gcc
+         +> jpl/JNI/typemap.win32 jpl/SETVARS.PL
+         !> Changes MANIFEST embed.h embed.pl jpl/JNI/JNI.pm
+         !> jpl/JNI/JNI.xs jpl/JNI/Makefile.PL jpl/JNI/test.pl
+         !> jpl/JNI/typemap jpl/JPL/Makefile.PL
+         !> jpl/PerlInterpreter/Makefile.PL
+         !> jpl/PerlInterpreter/PerlInterpreter.c
+         !> jpl/PerlInterpreter/PerlInterpreter.h jpl/README
+         !> jpl/Sample/Makefile.PL jpl/install-jpl
+         !> lib/File/Spec/Functions.pm pod/perlhist.pod regexec.c
+         !> t/op/pat.t
+____________________________________________________________________________
+[  4163] By: gsar                                  on 1999/09/15  05:17:27
+        Log: add :ALL export tag (from Chris Nandor <pudge@pobox.com>)
+     Branch: perl
+          ! lib/File/Spec/Functions.pm
+____________________________________________________________________________
+[  4162] By: gsar                                  on 1999/09/15  05:09:14
+        Log: addendum to change#4136 (from Robin Barker <rmb1@cise.npl.co.uk>)
+     Branch: perl
+          ! Changes embed.h embed.pl
+____________________________________________________________________________
 [  4161] By: gsar                                  on 1999/09/15  04:08:25
         Log: missing perlhist dates from Jeff Okamoto
      Branch: perl
index b754adf..b4d6537 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -385,7 +385,7 @@ EXT char *PL_op_desc[] = {
        "private variable",
        "private array",
        "private hash",
-       "private something",
+       "private value",
        "push regexp",
        "ref-to-glob cast",
        "scalar deref",
@@ -397,24 +397,24 @@ EXT char *PL_op_desc[] = {
        "single ref constructor",
        "reference-type operator",
        "bless",
-       "quoted execution (``, qx)",
+       "backticks (``, qx)",
        "glob",
        "<HANDLE>",
        "append I/O operator",
-       "regexp comp once",
-       "regexp reset interpolation flag",
+       "regexp internal guard",
+       "regexp internal reset",
        "regexp compilation",
        "pattern match (m//)",
        "pattern quote (qr//)",
        "substitution (s///)",
-       "substitution cont",
-       "character translation (tr///)",
+       "substitution iterator",
+       "transliteration (tr///)",
        "scalar assignment",
        "list assignment",
        "chop",
        "scalar chop",
-       "safe chop",
-       "scalar safe chop",
+       "chomp",
+       "scalar chomp",
        "defined operator",
        "undef operator",
        "study",
@@ -467,8 +467,8 @@ EXT char *PL_op_desc[] = {
        "bitwise and (&)",
        "bitwise xor (^)",
        "bitwise or (|)",
-       "negate (-)",
-       "integer negate (-)",
+       "negation (-)",
+       "integer negation (-)",
        "not",
        "1's complement (~)",
        "atan2",
@@ -498,8 +498,8 @@ EXT char *PL_op_desc[] = {
        "uc",
        "lc",
        "quotemeta",
-       "array deref",
-       "known array element",
+       "array dereference",
+       "constant array element",
        "array element",
        "array slice",
        "each",
@@ -507,8 +507,8 @@ EXT char *PL_op_desc[] = {
        "keys",
        "delete",
        "exists",
-       "hash deref",
-       "hash elem",
+       "hash dereference",
+       "hash element",
        "hash slice",
        "unpack",
        "pack",
@@ -535,7 +535,7 @@ EXT char *PL_op_desc[] = {
        "logical and (&&)",
        "logical or (||)",
        "logical xor",
-       "conditional operator (?:)",
+       "conditional expression",
        "logical and assignment (&&=)",
        "logical or assignment (||=)",
        "method lookup",
@@ -545,7 +545,7 @@ EXT char *PL_op_desc[] = {
        "caller",
        "warn",
        "die",
-       "reset",
+       "symbol reset",
        "line sequence",
        "next statement",
        "debug next statement",
@@ -684,10 +684,10 @@ EXT char *PL_op_desc[] = {
        "semop",
        "require",
        "do 'file'",
-       "eval \"string\"",
-       "eval exit",
+       "eval 'string'",
+       "eval 'string' exit",
        "eval {block}",
-       "eval block exit",
+       "eval {block} exit",
        "gethostbyname",
        "gethostbyaddr",
        "gethostent",
@@ -721,7 +721,7 @@ EXT char *PL_op_desc[] = {
        "getlogin",
        "syscall",
        "lock",
-       "per-thread variable",
+       "per-thread value",
        "set statement info",
        "method with known name",
 };
index ed458fa..9e96cd1 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -338,7 +338,7 @@ gelem               glob elem               ck_null         d2      S S
 padsv          private variable        ck_null         ds0
 padav          private array           ck_null         d0
 padhv          private hash            ck_null         d0
-padany         private something       ck_null         d0
+padany         private value           ck_null         d0
 
 pushre         push regexp             ck_null         d/
 
@@ -357,7 +357,7 @@ bless               bless                   ck_fun          s@      S S?
 
 # Pushy I/O.
 
-backtick       quoted execution (``, qx)       ck_null         t%      
+backtick       backticks (``, qx)      ck_null         t%      
 # glob defaults its first arg to $_
 glob           glob                    ck_glob         t@      S? S?
 readline       <HANDLE>                ck_null         t%      
@@ -365,14 +365,14 @@ rcatline  append I/O operator     ck_null         t%
 
 # Bindable operators.
 
-regcmaybe      regexp comp once                ck_fun          s1      S
-regcreset      regexp reset interpolation flag ck_fun          s1      S
-regcomp                regexp compilation              ck_null         s|      S
-match          pattern match (m//)             ck_match        d/
-qr                     pattern quote (qr//)    ck_match        s/
-subst          substitution (s///)             ck_null         dis/    S
-substcont      substitution cont               ck_null         dis|    
-trans          character translation (tr///)   ck_null         is"     S
+regcmaybe      regexp internal guard   ck_fun          s1      S
+regcreset      regexp internal reset   ck_fun          s1      S
+regcomp                regexp compilation      ck_null         s|      S
+match          pattern match (m//)     ck_match        d/
+qr             pattern quote (qr//)    ck_match        s/
+subst          substitution (s///)     ck_null         dis/    S
+substcont      substitution iterator   ck_null         dis|    
+trans          transliteration (tr///) ck_null         is"     S
 
 # Lvalue operators.
 # sassign is special-cased for op class
@@ -382,8 +382,8 @@ aassign             list assignment         ck_null         t2      L L
 
 chop           chop                    ck_spair        mTs%    L
 schop          scalar chop             ck_null         sTu%    S?
-chomp          safe chop               ck_spair        mTs%    L
-schomp         scalar safe chop        ck_null         sTu%    S?
+chomp          chomp                   ck_spair        mTs%    L
+schomp         scalar chomp            ck_null         sTu%    S?
 defined                defined operator        ck_defined      isu%    S?
 undef          undef operator          ck_lfun         s%      S?
 study          study                   ck_fun          su%     S?
@@ -402,7 +402,7 @@ i_postdec   integer postdecrement (--)      ck_lfun         disT1   S
 
 pow            exponentiation (**)     ck_null         fsT2    S S
 
-multiply       multiplication (*)              ck_null         IfsT2   S S
+multiply       multiplication (*)      ck_null         IfsT2   S S
 i_multiply     integer multiplication (*)      ck_null         ifsT2   S S
 divide         division (/)            ck_null         IfsT2   S S
 i_divide       integer division (/)    ck_null         ifsT2   S S
@@ -441,27 +441,27 @@ sle               string le               ck_scmp         ifs2    S S
 sge            string ge               ck_scmp         ifs2    S S
 seq            string eq               ck_null         ifs2    S S
 sne            string ne               ck_null         ifs2    S S
-scmp   string comparison (cmp)         ck_scmp         ifst2   S S
+scmp           string comparison (cmp) ck_scmp         ifst2   S S
 
 bit_and                bitwise and (&)         ck_bitop        fsT2    S S
 bit_xor                bitwise xor (^)         ck_bitop        fsT2    S S
 bit_or         bitwise or (|)          ck_bitop        fsT2    S S
 
-negate         negate (-)              ck_null         IfsT1   S
-i_negate       integer negate (-)      ck_null         ifsT1   S
+negate         negation (-)            ck_null         IfsT1   S
+i_negate       integer negation (-)    ck_null         ifsT1   S
 not            not                     ck_null         ifs1    S
 complement     1's complement (~)      ck_bitop        fsT1    S
 
 # High falutin' math.
 
-atan2          atan2           ck_fun          fsT@    S S
-sin            sin             ck_fun          fsTu%   S?
-cos            cos             ck_fun          fsTu%   S?
-rand           rand            ck_fun          sT%     S?
-srand          srand           ck_fun          s%      S?
-exp            exp             ck_fun          fsTu%   S?
-log            log             ck_fun          fsTu%   S?
-sqrt           sqrt            ck_fun          fsTu%   S?
+atan2          atan2                   ck_fun          fsT@    S S
+sin            sin                     ck_fun          fsTu%   S?
+cos            cos                     ck_fun          fsTu%   S?
+rand           rand                    ck_fun          sT%     S?
+srand          srand                   ck_fun          s%      S?
+exp            exp                     ck_fun          fsTu%   S?
+log            log                     ck_fun          fsTu%   S?
+sqrt           sqrt                    ck_fun          fsTu%   S?
 
 # Lowbrow math.
 
@@ -492,8 +492,8 @@ quotemeta   quotemeta               ck_fun          fsTu%   S?
 
 # Arrays.
 
-rv2av          array deref             ck_rvconst      dt1     
-aelemfast      known array element     ck_null         s*      A S
+rv2av          array dereference       ck_rvconst      dt1     
+aelemfast      constant array element  ck_null         s*      A S
 aelem          array element           ck_null         s2      A S
 aslice         array slice             ck_null         m@      A L
 
@@ -504,8 +504,8 @@ values              values                  ck_fun          t%      H
 keys           keys                    ck_fun          t%      H
 delete         delete                  ck_delete       %       S
 exists         exists                  ck_exists       is%     S
-rv2hv          hash deref              ck_rvconst      dt1     
-helem          hash elem               ck_null         s2@     H S
+rv2hv          hash dereference        ck_rvconst      dt1     
+helem          hash element            ck_null         s2@     H S
 hslice         hash slice              ck_null         m@      H L
 
 # Explosives and implosives.
@@ -530,11 +530,11 @@ unshift           unshift                 ck_fun          imsT@   A L
 sort           sort                    ck_sort         m@      C? L
 reverse                reverse                 ck_fun          mt@     L
 
-grepstart      grep            ck_grep         dm@     C L
-grepwhile      grep iterator   ck_null         dt|     
+grepstart      grep                    ck_grep         dm@     C L
+grepwhile      grep iterator           ck_null         dt|     
 
-mapstart       map             ck_grep         dm@     C L
-mapwhile       map iterator    ck_null         dt|
+mapstart       map                     ck_grep         dm@     C L
+mapwhile       map iterator            ck_null         dt|
 
 # Range stuff.
 
@@ -545,9 +545,9 @@ flop                range (or flop)         ck_null         1
 # Control.
 
 and            logical and (&&)                ck_null         |       
-or             logical or (||)         ck_null         |       
-xor            logical xor             ck_null         fs2     S S     
-cond_expr      conditional operator (?:)       ck_null         d|      
+or             logical or (||)                 ck_null         |       
+xor            logical xor                     ck_null         fs2     S S     
+cond_expr      conditional expression          ck_null         d|      
 andassign      logical and assignment (&&=)    ck_null         s|      
 orassign       logical or assignment (||=)     ck_null         s|      
 
@@ -558,7 +558,7 @@ leavesublv  lvalue subroutine exit  ck_null         1
 caller         caller                  ck_fun          t%      S?
 warn           warn                    ck_fun          imst@   L
 die            die                     ck_fun          dimst@  L
-reset          reset                   ck_fun          is%     S?
+reset          symbol reset            ck_fun          is%     S?
 
 lineseq                line sequence           ck_null         @       
 nextstate      next statement          ck_null         s;      
@@ -580,8 +580,8 @@ goto                goto                    ck_null         ds}
 exit           exit                    ck_fun          ds%     S?
 # continued below
 
-#nswitch               numeric switch          ck_null         d       
-#cswitch               character switch        ck_null         d       
+#nswitch       numeric switch          ck_null         d       
+#cswitch       character switch        ck_null         d       
 
 # I/O.
 
@@ -748,11 +748,11 @@ semop             semop                   ck_fun          imst@   S S
 
 require                require                 ck_require      du%     S?
 dofile         do 'file'               ck_fun          d1      S
-entereval      eval "string"           ck_eval         d%      S
-leaveeval      eval exit               ck_null         1       S
+entereval      eval 'string'           ck_eval         d%      S
+leaveeval      eval 'string' exit      ck_null         1       S
 #evalonce      eval constant string    ck_null         d1      S
 entertry       eval {block}            ck_null         |       
-leavetry       eval block exit         ck_null         @       
+leavetry       eval {block} exit       ck_null         @       
 
 # Get system info.
 
@@ -794,7 +794,7 @@ syscall             syscall                 ck_fun          imst@   S L
 
 # For multi-threading
 lock           lock                    ck_rfun         s%      S
-threadsv       per-thread variable     ck_null         ds0
+threadsv       per-thread value        ck_null         ds0
 
 # Control (contd.)
 setstate       set statement info      ck_null         s;
index 80fa0b5..418edac 100755 (executable)
@@ -79,7 +79,7 @@ print "ok 23\n";
 
 unlink("afile");     
 }
-if ($Is_VMS) { for (24..46) { print "ok $_ # skipped: not Unix fork\n"; }
+if ($Is_VMS) { for (24..46) { print "ok $_ # skipped: not Unix fork\n"; } }
 else {
 print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC');
 ./perl -e "print qq(a row\n); print qq(another row\n)"
@@ -91,7 +91,7 @@ print "ok 25\n";
 print "not " unless close($f);
 print "ok 26\n";
 }
-if ($Is_VMS) { for (27..30) { print "OK $_ # skipped: not Unix fork\n"; }
+if ($Is_VMS) { for (27..30) { print "OK $_ # skipped: not Unix fork\n"; } }
 else {
 print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
 ./perl -pe "s/^not //"
index f8a44ec..adfcd17 100755 (executable)
@@ -104,7 +104,7 @@ EXPECT
 ########
 %@x=0;
 EXPECT
-Can't modify hash deref in repeat (x) at - line 1, near "0;"
+Can't modify hash dereference in repeat (x) at - line 1, near "0;"
 Execution of - aborted due to compilation errors.
 ########
 $_="foo";
index a726140..950c0c8 100644 (file)
@@ -263,7 +263,7 @@ Useless use of rindex in void context at - line 22.
 Useless use of sprintf in void context at - line 23.
 Useless use of array element in void context at - line 24.
 Useless use of array slice in void context at - line 26.
-Useless use of hash elem in void context at - line 29.
+Useless use of hash element in void context at - line 29.
 Useless use of hash slice in void context at - line 30.
 Useless use of unpack in void context at - line 31.
 Useless use of pack in void context at - line 32.
@@ -593,16 +593,16 @@ EXPECT
 Applying pattern match (m//) to @array will act on scalar(@array) at - line 5.
 Applying substitution (s///) to @array will act on scalar(@array) at - line 6.
 Can't modify private array in substitution (s///) at - line 6, near "s/a/b/ ;"
-Applying character translation (tr///) to @array will act on scalar(@array) at - line 7.
+Applying transliteration (tr///) to @array will act on scalar(@array) at - line 7.
 Applying pattern match (m//) to @array will act on scalar(@array) at - line 8.
 Applying substitution (s///) to @array will act on scalar(@array) at - line 9.
-Applying character translation (tr///) to @array will act on scalar(@array) at - line 10.
+Applying transliteration (tr///) to @array will act on scalar(@array) at - line 10.
 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 11.
 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 12.
-Applying character translation (tr///) to %hash will act on scalar(%hash) at - line 13.
+Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 13.
 Applying pattern match (m//) to %hash will act on scalar(%hash) at - line 14.
 Applying substitution (s///) to %hash will act on scalar(%hash) at - line 15.
-Applying character translation (tr///) to %hash will act on scalar(%hash) at - line 16.
+Applying transliteration (tr///) to %hash will act on scalar(%hash) at - line 16.
 BEGIN not safe after errors--compilation aborted at - line 18.
 ########
 # op.c