From: Tyler Riddle <t.riddle@shadowcat.co.uk>
Date: Wed, 17 Oct 2012 17:46:48 +0000 (-0700)
Subject: test not shipping core modules in fatnode
X-Git-Tag: v0.003001_01~127
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=commitdiff_plain;h=c6749bdd4664593c836409b2d4c5d911b58514f0

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
--- 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),