perl-Safe.patch

   1 --- perl-5.6.1.orig/ext/Opcode/Safe.pm
   2 +++ perl-5.6.1/ext/Opcode/Safe.pm
   3 @@ -213,7 +213,7 @@
   4      # Create anon sub ref in root of compartment.
   5      # Uses a closure (on $expr) to pass in the code to be executed.
   6      # (eval on one line to keep line numbers as expected by caller)
   7 -       my $evalcode = sprintf('package %s; sub { eval $expr; }', $root);
   8 +       my $evalcode = sprintf('package %s; sub { @_ = (); eval $expr; }', $root);
   9      my $evalsub;
  10
  11         if ($strict) { use strict; $evalsub = eval $evalcode; }
  12 @@ -227,7 +227,7 @@
  13      my $root = $obj->{Root};
  14
  15      my $evalsub = eval
  16 -           sprintf('package %s; sub { do $file }', $root);
  17 +           sprintf('package %s; sub { @_ = (); do $file }', $root);
  18      return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
  19  }
  20