/^\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}/
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 {