From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Fri, 27 Jul 2012 20:06:30 +0000 (+0000)
Subject: fixed perl filtering
X-Git-Tag: v0.001_001~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9745213f0d9f1f9a1e32022d54a1065fcb476dcb;p=scpubgit%2FSystem-Introspector.git

fixed perl filtering
---

diff --git a/lib/System/Introspector/Probe/Perls.pm b/lib/System/Introspector/Probe/Perls.pm
index 354a941..bb8af72 100644
--- a/lib/System/Introspector/Probe/Perls.pm
+++ b/lib/System/Introspector/Probe/Perls.pm
@@ -22,7 +22,8 @@ sub gather {
             my $info = transform_exceptions {
                 return $self->_gather_info($config);
             };
-            next if $info->{config}{sitelibexp}
+            next if $info
+                and $info->{config}{sitelibexp}
                 and $seen{$info->{config}{sitelibexp}}++;
             $found{$config} = $info
                 if defined $info;