use B qw(perlstring);
my @exclude_mods = qw(XSLoader.pm DynaLoader.pm);
-#used by t/watchdog_fatnode
+#used by t/watchdog_fatnode
our $INHIBIT_RUN_NODE = 0;
sub stripspace {
my @extra_libs = grep not(ref($_) or $maybe_libs{$_}), @INC;
my $extra_libs = join '', map " -I$_\n", @extra_libs;
+my $perl_quote = $^O eq "MSWin32" ? q["] : q['];
my $command = qq(
$^X
$extra_libs
-mObject::Remote
-mObject::Remote::Connector::STDIO
- -mCPS::Future
+ -mFuture
-mMRO::Compat
-mClass::C3
-mClass::C3::next
-mMethod::Generate::BuildAll
-mMethod::Generate::DemolishAll
-mJSON::PP
- -e 'print join "\\n", \%INC'
+ -e $perl_quote print join qq[\\n], \%INC $perl_quote
);
$command =~ s/\n/ /g;
chomp(my @inc = qx($command));
-my %exclude = map { $_ => 1 } @exclude_mods;
+my %exclude = map { $_ => 1 } @exclude_mods;
my %mods = reverse @inc;
my %file_names = @inc;