X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FOpcode%2FOpcode.pm;h=e0078e5d382fbbb7eef22ace53b39b3e7e40b742;hb=096e1543c0e39bb253015dc55f8bedc6c90a5277;hp=b3cfb50374d7e9c458904d1948b221ac518aa382;hpb=96e4d5b14cf2dfb0235faa8bc3f701c15b15bb05;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm index b3cfb50..e0078e5 100644 --- a/ext/Opcode/Opcode.pm +++ b/ext/Opcode/Opcode.pm @@ -1,19 +1,19 @@ package Opcode; -require 5.002; +use 5.006_001; -use vars qw($VERSION $XS_VERSION @ISA @EXPORT_OK); +use strict; -$VERSION = "1.03"; -$XS_VERSION = "1.01"; +our($VERSION, @ISA, @EXPORT_OK); + +$VERSION = "1.11"; -use strict; use Carp; use Exporter (); -use DynaLoader (); -@ISA = qw(Exporter DynaLoader); +use XSLoader (); BEGIN { + @ISA = qw(Exporter); @EXPORT_OK = qw( opset ops_to_opset opset_to_ops opset_to_hex invert_opset @@ -28,7 +28,7 @@ sub opset_to_hex ($); sub opdump (;$); use subs @EXPORT_OK; -bootstrap Opcode $XS_VERSION; +XSLoader::load 'Opcode', $VERSION; _init_optags(); @@ -130,7 +130,7 @@ Your mileage will vary. If in any doubt B. =head1 Operator Names and Operator Lists The canonical list of operator names is the contents of the array -op_name defined and initialised in file F of the Perl +PL_op_name defined and initialised in file F of the Perl source distribution (and installed into the perl library). Each operator has both a terse name (its opname) and a more verbose or @@ -152,7 +152,7 @@ like gv2cv, i_ncmp and ftsvtx. =item an operator tag name (optag) Operator tags can be used to refer to groups (or sets) of operators. -Tag names always being with a colon. The Opcode module defines several +Tag names always begin with a colon. The Opcode module defines several optags and the user can define others using the define_optag function. =item a negated opname or optag @@ -163,7 +163,7 @@ accumulated set of ops at that point. =item an operator set (opset) -An I as a binary string of approximately 43 bytes which holds a +An I as a binary string of approximately 44 bytes which holds a set or zero or more operators. The opset and opset_to_ops functions can be used to convert from @@ -185,7 +185,7 @@ tags and sets. All are available for export by the package. =item opcodes In a scalar context opcodes returns the number of opcodes in this -version of perl (around 340 for perl5.002). +version of perl (around 350 for perl-5.7.0). In a list context it returns a list of all the operator names. (Not yet implemented, use @names = opset_to_ops(full_opset).) @@ -326,17 +326,17 @@ invert_opset function. ucfirst lcfirst uc lc quotemeta trans chop schop chomp schomp - match split + match split qr list lslice splice push pop shift unshift reverse - cond_expr flip flop andassign orassign and or xor + cond_expr flip flop andassign orassign dorassign and or dor xor - warn die lineseq nextstate unstack scope enter leave + warn die lineseq nextstate scope enter leave setstate rv2cv anoncode prototype - entersub leavesub return method -- XXX loops via recursion? + entersub leavesub leavesublv return method method_named -- XXX loops via recursion? leaveeval -- needed for Safe to operate, is safe without entereval @@ -350,7 +350,7 @@ available memory). anonlist anonhash -Note that despite the existance of this optag a memory resource attack +Note that despite the existence of this optag a memory resource attack may still be possible using only :base_core ops. Disabling these ops is a I heavy handed way to attempt to prevent @@ -365,7 +365,7 @@ used to implement a resource attack (e.g., consume all available CPU time). grepstart grepwhile mapstart mapwhile enteriter iter - enterloop leaveloop + enterloop leaveloop unstack last next redo goto @@ -373,16 +373,17 @@ used to implement a resource attack (e.g., consume all available CPU time). These ops enable I (rather than filename) based input and output. These are safe on the assumption that only pre-existing -filehandles are available for use. To create new filehandles other ops -such as open would need to be enabled. +filehandles are available for use. Usually, to create new filehandles +other ops such as open would need to be enabled, if you don't take into +account the magical open of ARGV. readline rcatline getc read formline enterwrite leavewrite - print sysread syswrite send recv + print say sysread syswrite send recv - eof tell seek systell sysseek + eof tell seek sysseek readdir telldir seekdir rewinddir @@ -394,11 +395,13 @@ These are a hotchpotch of opcodes still waiting to be considered padsv padav padhv padany + once + rv2gv refgen srefgen ref bless -- could be used to change ownership of objects (reblessing) - pushre regcmaybe regcomp subst substcont + pushre regcmaybe regcreset regcomp subst substcont sprintf prtf -- can core dump @@ -414,6 +417,13 @@ These are a hotchpotch of opcodes still waiting to be considered entertry leavetry -- can be used to 'hide' fatal errors + entergiven leavegiven + enterwhen leavewhen + break continue + smartmatch + + custom -- where should this go + =item :base_math These ops are not included in :base_core because of the risk of them being @@ -427,17 +437,24 @@ beyond the scope of the compartment. rand srand +=item :base_thread + +These ops are related to multi-threading. + + lock + =item :default A handy tag name for a I default set of ops. (The current ops allowed are unstable while development continues. It will change.) - :base_core :base_mem :base_loop :base_io :base_orig + :base_core :base_mem :base_loop :base_orig :base_thread + +This list used to contain :base_io prior to Opcode 1.07. If safety matters to you (and why else would you be using the Opcode module?) then you should not rely on the definition of this, or indeed any other, optag! - =item :filesys_read stat lstat readlink @@ -519,6 +536,14 @@ SystemV Interprocess Communications: shmctl shmget shmread shmwrite +=item :load + +This tag holds opcodes related to loading modules and getting information +about calling environment and args. + + require dofile + caller + =item :still_to_be_decided chdir @@ -533,9 +558,6 @@ SystemV Interprocess Communications: pack unpack -- can be used to create/use memory pointers entereval -- can be used to hide code from initial compile - require dofile - - caller -- get info about calling environment and args reset @@ -544,18 +566,17 @@ SystemV Interprocess Communications: =item :dangerous This tag is simply a bucket for opcodes that are unlikely to be used via -a tag name but need to be tagged for completness and documentation. +a tag name but need to be tagged for completeness and documentation. syscall dump chroot - =back =head1 SEE ALSO -ops(3) -- perl pragma interface to Opcode module. +L -- perl pragma interface to Opcode module. -Safe(3) -- Opcode and namespace limited execution compartments +L -- Opcode and namespace limited execution compartments =head1 AUTHORS @@ -563,7 +584,7 @@ Originally designed and implemented by Malcolm Beattie, mbeattie@sable.ox.ac.uk as part of Safe version 1. Split out from Safe module version 1, named opcode tags and other -changes added by Tim Bunce EFE. +changes added by Tim Bunce. =cut