Change 34222 by [EMAIL PROTECTED] on 2008/08/24 14:13:52
Patch by Tod Hagan to document the 2nd argument of reval() in Safe.pm
Affected files ...
... //depot/perl/ext/Opcode/Safe.pm#36 edit
Differences ...
==== //depot/perl/ext/Opcode/Safe.pm#36 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm#35~33503~ 2008-03-13 03:43:13.000000000 -0700
+++ perl/ext/Opcode/Safe.pm 2008-08-24 07:13:52.000000000 -0700
@@ -3,7 +3,7 @@
use 5.003_11;
use strict;
-$Safe::VERSION = "2.16";
+$Safe::VERSION = "2.16_01";
# *** Don't declare any lexicals above this point ***
#
@@ -486,7 +486,7 @@
${$cpt->varglob('foo')} = "Hello world";
-=item reval (STRING)
+=item reval (STRING, STRICT)
This evaluates STRING as perl code inside the compartment.
@@ -513,6 +513,10 @@
where earlier versions of perl made it hard to mimic the return
behaviour of the eval() command and the context was always scalar.
+The formerly undocumented STRICT argument sets strictness: if true
+'use strict;' is used, otherwise it uses 'no strict;'. B<Note>: if
+STRICT is omitted 'no strict;' is the default.
+
Some points to note:
If the entereval op is permitted then the code can use eval "..." to
End of Patch.
