From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 1 Jul 2009 04:01:27 +0000 (-0400)
Subject: expand comment
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8414da4ecf57ee1051c0df44732ea1259d4b327;p=gitmo%2FMooseX-Antlers.git

expand comment
---

diff --git a/lib/MooseX/Antlers/RefFilter.pm b/lib/MooseX/Antlers/RefFilter.pm
index 684d2b8..654bbc0 100644
--- a/lib/MooseX/Antlers/RefFilter.pm
+++ b/lib/MooseX/Antlers/RefFilter.pm
@@ -119,6 +119,8 @@ sub _fixup_code_for_externals {
       # need to strip that bit off and push the enref to the RHS since
       # ${\undef} = "foo"
       # is an attempt to modify a readonly value and perl will burst into tears
+      # $whatever = \"foo"
+      # is ok so if the match succeeds switch it to that
       if ($l =~ m/^\${(.*)}$/) { $l = $1; $r = "\\".$r; }
       $l.' = '.$r.';';
     }