diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-02-03 16:04:20 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-02-03 16:04:20 -0600 |
| commit | e6c246fb173b574b731d9993b221d52fb63309f5 (patch) | |
| tree | de2b9265d541562a69306ddd6b7a87cdb7078c96 | |
| parent | 00e107ebb4f8360bf7a57743fbce8ff8d951d9b3 (diff) | |
| download | eval-closure-e6c246fb173b574b731d9993b221d52fb63309f5.tar.gz eval-closure-e6c246fb173b574b731d9993b221d52fb63309f5.zip | |
package declarations outside of string eval doesn't work on 5.80.07
| -rw-r--r-- | lib/Eval/Closure.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index ccd2bbc..0fa6aa8 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -196,12 +196,8 @@ sub _make_compiler { return @{ _clean_eval($source) }; } -$Eval::Closure::SANDBOX_ID = 0; - sub _clean_eval { - $Eval::Closure::SANDBOX_ID++; return eval <<EVAL; -package Eval::Closure::Sandbox_$Eval::Closure::SANDBOX_ID; local \$@; local \$SIG{__DIE__}; my \$compiler = eval \$_[0]; @@ -210,10 +206,14 @@ my \$e = \$@; EVAL } +$Eval::Closure::SANDBOX_ID = 0; + sub _make_compiler_source { my ($source, @capture_keys) = @_; + $Eval::Closure::SANDBOX_ID++; my $i = 0; return join "\n", ( + "package Eval::Closure::Sandbox_$Eval::Closure::SANDBOX_ID;", 'sub {', (map { 'my ' . $_ . ' = ' . substr($_, 0, 1) . '{$_[' . $i++ . ']};' |