From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Wed, 25 Jul 2012 20:54:17 +0000 (+0000)
Subject: determine unique perls by their sitelibexp config setting
X-Git-Tag: v0.001_001~20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9bd83260de81fec3b238b3931d745ff98f8fa19e;p=scpubgit%2FSystem-Introspector.git

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
--- 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;
         }