diff options
| author | Anton Berezin <tobez@FreeBSD.org> | 2003-04-21 14:27:37 +0000 |
|---|---|---|
| committer | Anton Berezin <tobez@FreeBSD.org> | 2003-04-21 14:27:37 +0000 |
| commit | 880a91bea27178607cec6c0e6ac8ed96e397772d (patch) | |
| tree | fe32aae71834c7dd34f3db4d5ff0d451a1f1d527 /lang/perl5.6/files/patch-Safe.pm | |
| parent | Add two missing trailing '/'s in MASTER_SITES. (diff) | |
Patch Safe.pm (see
http://use.perl.org/articles/02/10/06/1118222.shtml?tid=5).
Reported by: kuriyama
Diffstat (limited to '')
| -rw-r--r-- | lang/perl5.6/files/patch-Safe.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lang/perl5.6/files/patch-Safe.pm b/lang/perl5.6/files/patch-Safe.pm new file mode 100644 index 000000000000..142b03ca4fba --- /dev/null +++ b/lang/perl5.6/files/patch-Safe.pm @@ -0,0 +1,20 @@ +--- ext/Opcode/Safe.pm.orig Fri Feb 23 03:57:54 2001 ++++ ext/Opcode/Safe.pm Mon Apr 21 16:24:39 2003 +@@ -213,7 +213,7 @@ sub reval { + # Create anon sub ref in root of compartment. + # Uses a closure (on $expr) to pass in the code to be executed. + # (eval on one line to keep line numbers as expected by caller) +- my $evalcode = sprintf('package %s; sub { eval $expr; }', $root); ++ my $evalcode = sprintf('package %s; sub { @_ = (); eval $expr; }', $root); + my $evalsub; + + if ($strict) { use strict; $evalsub = eval $evalcode; } +@@ -227,7 +227,7 @@ sub rdo { + my $root = $obj->{Root}; + + my $evalsub = eval +- sprintf('package %s; sub { do $file }', $root); ++ sprintf('package %s; sub { @_ = (); do $file }', $root); + return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub); + } + |