test not shipping core modules in fatnode

diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm
index 3985027..23c8296 100644 (file)
--- 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),