X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FEval-WithLexicals.git;a=blobdiff_plain;f=lib%2FEval%2FWithLexicals.pm;h=e4f75871772a82c299254c8d893af215322d16e3;hp=95194a83449e86f1d044636f6be218fe3ac0077d;hb=5a4e9992710350f37a6db63bbf610cce68114acc;hpb=d9087132689f27e3409cf79308b90a67ee7a9ab2

diff --git a/lib/Eval/WithLexicals.pm b/lib/Eval/WithLexicals.pm
index 95194a8..e4f7587 100644
--- a/lib/Eval/WithLexicals.pm
+++ b/lib/Eval/WithLexicals.pm
@@ -54,6 +54,7 @@ sub eval {
 
   my $package = $self->in_package;
   my $setup_code = join '', $self->setup_code,
+    # $_[2] being what is passed to _eval_do below
     Sub::Quote::capture_unroll('$_[2]', $self->lexicals, 2);
 
   my $capture_code = join '', $self->capture_code;