diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
commit | 2ef219d80efde1bb5ab11cbdd8bdd059556b1f89 (patch) | |
tree | 95a8cb845703f263101ea7a0842bb75d93109bef /Master/tlpkg/tlperl/lib/Opcode.pm | |
parent | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (diff) |
Perl 5.38.2
git-svn-id: svn://tug.org/texlive/trunk@69898 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Opcode.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Opcode.pm | 44 |
1 files changed, 23 insertions, 21 deletions
diff --git a/Master/tlpkg/tlperl/lib/Opcode.pm b/Master/tlpkg/tlperl/lib/Opcode.pm index 0501fb8f396..b4aead9e401 100644 --- a/Master/tlpkg/tlperl/lib/Opcode.pm +++ b/Master/tlpkg/tlperl/lib/Opcode.pm @@ -1,32 +1,21 @@ -package Opcode; - -use 5.006_001; +package Opcode 1.64; use strict; -our($VERSION, @ISA, @EXPORT_OK); - -$VERSION = "1.50"; - use Carp; -use Exporter (); +use Exporter 'import'; use XSLoader; -BEGIN { - @ISA = qw(Exporter); - @EXPORT_OK = qw( +sub opset (;@); +sub opset_to_hex ($); +sub opdump (;$); +use subs our @EXPORT_OK = qw( opset ops_to_opset opset_to_ops opset_to_hex invert_opset empty_opset full_opset opdesc opcodes opmask define_optag opmask_add verify_opset opdump - ); -} - -sub opset (;@); -sub opset_to_hex ($); -sub opdump (;$); -use subs @EXPORT_OK; +); XSLoader::load(); @@ -313,10 +302,10 @@ invert_opset function. null stub scalar pushmark wantarray const defined undef - rv2sv sassign + rv2sv sassign padsv_store rv2av aassign aelem aelemfast aelemfast_lex aslice kvaslice - av2arylen + av2arylen aelemfastlex_store rv2hv helem hslice kvhslice each values keys exists delete aeach akeys avalues multideref argelem argdefelem argcheck @@ -343,10 +332,12 @@ invert_opset function. list lslice splice push pop shift unshift reverse cond_expr flip flop andassign orassign dorassign and or dor xor + helemexistsor warn die lineseq nextstate scope enter leave rv2cv anoncode prototype coreargs avhvswitch anonconst + emptyavhv entersub leavesub leavesublv return method method_named method_super method_redir method_redir_super @@ -354,9 +345,14 @@ invert_opset function. cmpchain_and cmpchain_dup + is_bool + is_weak weaken unweaken + leaveeval -- needed for Safe to operate, is safe without entereval + methstart initfield + =item :base_mem These memory related ops are not included in :base_core because they @@ -415,6 +411,7 @@ These are a hotchpotch of opcodes still waiting to be considered once rv2gv refgen srefgen ref refassign lvref lvrefslice lvavref + blessed refaddr reftype bless -- could be used to change ownership of objects (reblessing) @@ -442,8 +439,14 @@ These are a hotchpotch of opcodes still waiting to be considered break continue smartmatch + pushdefer + custom -- where should this go + ceil floor + + is_tainted + =item :base_math These ops are not included in :base_core because of the risk of them being @@ -611,4 +614,3 @@ Split out from Safe module version 1, named opcode tags and other changes added by Tim Bunce. =cut - |