X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFatNode.pm;h=9ea72508ffe804f65f7f8da0056c1011c82e37f5;hb=6330846d968316a78ccbc8b301f192e1c10a8be0;hp=8ce1d7d7113b9a199a3e824308e6a96a33b890c6;hpb=fb2b75a25feeac97cfba9bc3bb6c567433998c2c;p=scpubgit%2FObject-Remote.git

diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm
index 8ce1d7d..9ea7250 100644
--- a/lib/Object/Remote/FatNode.pm
+++ b/lib/Object/Remote/FatNode.pm
@@ -54,16 +54,10 @@ foreach(keys(%mods)) {
   }
 }
 
-#TODO quick and dirty mod for testing - vendorarchexp from a perlbrew build
-#was set to '' which evaluates as a true regex
-
-#use Data::Dumper;
-#print STDERR Dumper([keys %mod_files]);
-#print STDERR Dumper([keys %mods]);
-
 my @non_core_non_arch = ( $mod_files{'Devel/GlobalDestruction.pm'} );
 push @non_core_non_arch, grep +(
   not (
+    #some of the config variables can be empty which will eval as a matching regex
     $Config{privlibexp} ne '' && /^\Q$Config{privlibexp}/ 
       or $Config{archlibexp} ne '' && /^\Q$Config{archlibexp}/
       or $Config{vendorarchexp} ne '' && /^\Q$Config{vendorarchexp}/