From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 7 Nov 2010 01:08:54 +0000 (+0000)
Subject: explain no warnings closure
X-Git-Tag: 0.009001~74
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea4b7a8ac0487c935e649a8d8a99f76b236adcff;p=gitmo%2FMoo.git

explain no warnings closure
---

diff --git a/lib/Sub/Quote.pm b/lib/Sub/Quote.pm
index 7015651..17e1215 100644
--- a/lib/Sub/Quote.pm
+++ b/lib/Sub/Quote.pm
@@ -40,6 +40,9 @@ sub _unquote_all_outstanding {
     my $o_quoted = perlstring $outstanding;
     $make_sub .= (
       $name
+	  # disable the 'variable $x will not stay shared' warning since
+	  # we're not letting it escape from this scope anyway so there's
+	  # nothing trying to share it
         ? "  no warnings 'closure';\n  sub ${name} {\n"
 	: "  \$Sub::Quote::QUOTED{${o_quoted}}[3] = sub {\n"
     );