From: Christian Walde Date: Wed, 12 Jun 2013 12:16:17 +0000 (+0200) Subject: quote all extra libs in FatNode, in case they contain spaces X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=commitdiff_plain;h=win32 quote all extra libs in FatNode, in case they contain spaces --- diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm index c1d5400..598366c 100644 --- a/lib/Object/Remote/FatNode.pm +++ b/lib/Object/Remote/FatNode.pm @@ -18,7 +18,7 @@ my %maybe_libs = map +($_ => 1), grep defined, (values %Config, '.'); my @extra_libs = grep not(ref($_) or $maybe_libs{$_}), @INC; -my $extra_libs = join '', map " -I$_\n", @extra_libs; +my $extra_libs = join '', map qq[ -I"$_"\n], @extra_libs; my $perl_quote = $^O eq "MSWin32" ? q["] : q[']; my $command = qq(