From: Gurusamy Sarathy Date: Sat, 18 Sep 1999 03:14:58 +0000 (+0000) Subject: tweak some op names in change#4177 (will any of this break code that X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1612b5c9ea43d9872ae3595ce140e5a62ae6cf4;p=p5sagit%2Fp5-mst-13.2.git tweak some op names in change#4177 (will any of this break code that gropes $@ ?) p4raw-link: @4177 on //depot/cfgperl: 42d382189339e56f3bd13a71933349bc8b7e8b42 p4raw-id: //depot/perl@4189 --- diff --git a/Changes b/Changes index 8f0fb75..264c56b 100644 --- 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 + 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 + To: Hans GINZEL , 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 + To: Ilya Zakharevich + 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 + 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 + 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 ) + 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 ) + 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 diff --git a/opcode.h b/opcode.h index b754adf..b4d6537 100644 --- 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", "", "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", }; diff --git a/opcode.pl b/opcode.pl index ed458fa..9e96cd1 100755 --- 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 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; diff --git a/t/io/open.t b/t/io/open.t index 80fa0b5..418edac 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -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 //" diff --git a/t/op/misc.t b/t/op/misc.t index f8a44ec..adfcd17 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -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"; diff --git a/t/pragma/warn/op b/t/pragma/warn/op index a726140..950c0c8 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -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