X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=lib%2FMooseX%2FAntlers%2FRefFilter.pm;fp=lib%2FMooseX%2FAntlers%2FRefFilter.pm;h=acfe798e4ce8d0dbca81c7915e9a84c79c7a9821;hp=654bbc0a448a48de8b85a5cca2b66882836fb340;hb=064721e6419bd56c5b9e34a70180a6e6f57eab85;hpb=5ed50637a6a3590982b86580bef646f2d8b44b13

diff --git a/lib/MooseX/Antlers/RefFilter.pm b/lib/MooseX/Antlers/RefFilter.pm
index 654bbc0..acfe798 100644
--- a/lib/MooseX/Antlers/RefFilter.pm
+++ b/lib/MooseX/Antlers/RefFilter.pm
@@ -121,7 +121,7 @@ sub _fixup_code_for_externals {
       # 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; }
+      if ($l =~ m/^\${(.*)}$/) { $l = $1; $r = "\\(".$r.")"; }
       $l.' = '.$r.';';
     }
     sort keys %$ext