X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFatNode.pm;h=fe07f29f94d46dacb51bfe2e13075925291a2fa0;hp=d93f54c7a2d089e763f45b3ffb8546ddf6a112bc;hb=dd6e1327e96d5488e34f7519d9d3290627c9bbe8;hpb=9a46f6c5479427e967cea4f4ea64b0be7decbd7c

diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm
index d93f54c..fe07f29 100644
--- a/lib/Object/Remote/FatNode.pm
+++ b/lib/Object/Remote/FatNode.pm
@@ -16,9 +16,12 @@ sub stripspace {
 
 my %maybe_libs = map +($_ => 1), grep defined, (values %Config, '.');
 
-my @extra_libs = grep -e not(ref($_) or $maybe_libs{$_}), @INC;
-
-my $extra_libs = join '', map "  -I$_\n", @extra_libs;
+my @extra_libs = grep not(ref($_) or $maybe_libs{$_}), @INC;
+my $extra_libs = join '', map {
+    my $lib = $_;
+    $lib =~ s{'}{'\\''}g;
+    "  -I'$lib'\n";
+} @extra_libs;
 
 my $command = qq(
   $^X
@@ -34,6 +37,7 @@ my $command = qq(
   -mObject::Remote::Node
   -mMethod::Generate::BuildAll
   -mMethod::Generate::DemolishAll
+  -mMoo::HandleMoose::_TypeMap
   -mJSON::PP
   -e 'print join "\\n", \%INC'
 );