Patch by Tod Hagan to document the 2nd argument of reval() in Safe.pm

[perl5.git] / ext / Opcode / Safe.pm

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index f611e0f..812d571 100644 (file)
--- a/ext/Opcode/Safe.pm
+++ b/ext/Opcode/Safe.pm
@@ -3,7 +3,7 @@ package Safe;
 use 5.003_11;
 use strict;
 
 use 5.003_11;
 use strict;
 

-$Safe::VERSION = "2.16";
+$Safe::VERSION = "2.16_01";

 
 # *** Don't declare any lexicals above this point ***
 #
 
 # *** Don't declare any lexicals above this point ***
 #


@@ -486,7 +486,7 @@ variable without any leading type marker. For example,
     ${$cpt->varglob('foo')} = "Hello world";
 
 
     ${$cpt->varglob('foo')} = "Hello world";
 
 

-=item reval (STRING)
+=item reval (STRING, STRICT)

 
 This evaluates STRING as perl code inside the compartment.
 
 
 This evaluates STRING as perl code inside the compartment.
 


@@ -513,6 +513,10 @@ This behaviour differs from the beta distribution of the Safe extension
 where earlier versions of perl made it hard to mimic the return
 behaviour of the eval() command and the context was always scalar.
 
 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
 Some points to note:
 
 If the entereval op is permitted then the code can use eval "..." to