From: Tyler Riddle Date: Tue, 11 Sep 2012 20:25:53 +0000 (-0700) Subject: removed filtering for arch specific files when dealing with remote nodes X-Git-Tag: v0.003001_01~132 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=commitdiff_plain;h=f225a19938aca6ee9f1effd7d0eb64e90657e30f removed filtering for arch specific files when dealing with remote nodes --- diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm index 845c12b..d76a21d 100644 --- a/lib/Object/Remote/FatNode.pm +++ b/lib/Object/Remote/FatNode.pm @@ -45,7 +45,7 @@ my @non_core_non_arch = grep +( /^\Q$Config{privlibexp}/ or /^\Q$Config{archlibexp}/ or /^\Q$Config{vendorarchexp}/ or /^\Q$Config{sitearchexp}/ ) -), grep !/\Q$Config{archname}/, grep !/\Q$Config{myarchname}/, keys %mods; +), keys %mods; my @core_non_arch = grep +( /^\Q$Config{privlibexp}/ diff --git a/lib/Object/Remote/ModuleSender.pm b/lib/Object/Remote/ModuleSender.pm index f33a1d5..6fe0927 100644 --- a/lib/Object/Remote/ModuleSender.pm +++ b/lib/Object/Remote/ModuleSender.pm @@ -11,7 +11,7 @@ sub _build_dir_list { my %core = map +($_ => 1), grep $_, @Config{ qw(privlibexp archlibexp vendorarchexp sitearchexp) }; - [ grep !/\Q$Config{archname}/, grep !/\Q$Config{myarchname}/, grep !$core{$_}, @INC ]; + [ grep !$core{$_}, @INC ]; } sub source_for {