From: David Leadbeater <dgl@dgl.cx>
Date: Tue, 11 Jan 2011 22:19:27 +0000 (+0000)
Subject: Clarify what and wherefore
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a4e9992710350f37a6db63bbf610cce68114acc;p=p5sagit%2FEval-WithLexicals.git

Clarify what and wherefore
---

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;