X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEval%2FClosure.pm;h=0fa6aa82bc4c92d5bf8cc72e81da5c5c693c0317;hb=e6c246fb173b574b731d9993b221d52fb63309f5;hp=ccd2bbc1de3894c3e54133ad2d38fd0dde802ba9;hpb=00e107ebb4f8360bf7a57743fbce8ff8d951d9b3;p=gitmo%2FEval-Closure.git

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++ . ']};'