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=4f7d4e3ccdc9211c60219a640503600122ad2c9e;hp=e0a0351c12ae208367158639d6d82d00f3e9e935;hb=8c81a0e51d629a4f53975c6f738aa14d680b73c1;hpb=eee9a5487590df4c2ead52b01435716afbd23fe5 diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm index e0a0351..4f7d4e3 100644 --- a/lib/Object/Remote/FatNode.pm +++ b/lib/Object/Remote/FatNode.pm @@ -22,9 +22,14 @@ my $command = qq( -mObject::Remote -mObject::Remote::Connector::STDIO -mCPS::Future + -mMRO::Compat -mClass::C3 + -mClass::C3::next + -mAlgorithm::C3 -mObject::Remote::ModuleLoader -mObject::Remote::Node + -mMethod::Generate::BuildAll + -mMethod::Generate::DemolishAll -mJSON::PP -e 'print join "\\n", reverse \%INC' ); @@ -52,6 +57,8 @@ my $end = stripspace <<'END_END'; open my $fh, '<', \$fat; return $fh; } + #Uncomment this to find brokenness + #warn "Missing $_[1]"; return };