expand comment

diff --git a/lib/MooseX/Antlers/RefFilter.pm b/lib/MooseX/Antlers/RefFilter.pm
index 684d2b8..654bbc0 100644 (file)
--- 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.';';
     }