X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFatNode.pm;fp=lib%2FObject%2FRemote%2FFatNode.pm;h=23c829679d6e304f68a90bf46ddfb3138ec9098b;hb=c6749bdd4664593c836409b2d4c5d911b58514f0;hp=398502764c9c8dd80755aba5e524115465a8b083;hpb=6d3fbfa20ade934252a09648f5e750eeae1a2c88;p=scpubgit%2FObject-Remote.git

diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm
index 3985027..23c8296 100644
--- a/lib/Object/Remote/FatNode.pm
+++ b/lib/Object/Remote/FatNode.pm
@@ -46,9 +46,10 @@ my @non_core = grep +(
   )
 ), keys %mods;
 
-my @core_non_arch = grep +(
-  /^\Q$Config{privlibexp}/
-), grep !/\Q$Config{archname}/, grep !/\Q$Config{myarchname}/, keys %mods;
+#my @core_non_arch = grep +(
+#  /^\Q$Config{privlibexp}/
+#), grep !/\Q$Config{archname}/, grep !/\Q$Config{myarchname}/, keys %mods;
+my @core_non_arch; 
 
 my $start = stripspace <<'END_START';
   # This chunk of stuff was generated by Object::Remote::FatNode. To find
@@ -92,6 +93,11 @@ sub generate_fatpack_hash {
   .qq!${data}${name}\n!;
 }
 
+use Data::Dumper;
+warn "Dumping list of shipped modules";
+print STDERR "Core non-arch: ", Dumper(\@core_non_arch);
+print STDERR "Non-core: ", Dumper(\@non_core); 
+
 my @segments = (
   map(generate_fatpack_hash('fatpacked', $_), sort map $mods{$_}, @non_core),
   map(generate_fatpack_hash('fatpacked_extra', $_), sort map $mods{$_}, @core_non_arch),