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 {
+ my $lib = $_;
+ $lib =~ s{'}{'\\''}g;
+ " -I'$lib'\n";
+} @extra_libs;
my $command = qq(
$^X
$extra_libs
-mObject::Remote
-mObject::Remote::Connector::STDIO
- -mCPS::Future
+ -mFuture
-mMRO::Compat
-mClass::C3
-mClass::C3::next