determine unique perls by their sitelibexp config setting

diff --git a/lib/System/Introspector/Probe/Perls.pm b/lib/System/Introspector/Probe/Perls.pm
index d25e70c..354a941 100644 (file)
--- a/lib/System/Introspector/Probe/Perls.pm
+++ b/lib/System/Introspector/Probe/Perls.pm
@@ -17,10 +17,13 @@ sub gather {
     return transform_exceptions {
         my @configs = $self->_find_possible_perl_configs;
         my %found;
+        my %seen;
         for my $config (@configs) {
             my $info = transform_exceptions {
                 return $self->_gather_info($config);
             };
+            next if $info->{config}{sitelibexp}
+                and $seen{$info->{config}{sitelibexp}}++;
             $found{$config} = $info
                 if defined $info;
         }