fixed perl filtering

diff --git a/lib/System/Introspector/Probe/Perls.pm b/lib/System/Introspector/Probe/Perls.pm
index 354a941..bb8af72 100644 (file)
--- 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;