Permalink
Browse files

don't die if there is no perllocal.pod available

  • Loading branch information...
1 parent d3f4ecf commit e3a4d5d6079657d4b3899c4f55f0e80a29ceedf2 @semuel committed Sep 27, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 lib/Dist/Surveyor.pm
View
@@ -475,7 +475,8 @@ sub determine_installed_releases {
||= pick_best_cpan_dist_release($ccdr, \%installed_mod_info);
my $note = "";
- if (@$best > 1) { # try using perllocal.pod to narrow the options
+ if ((@$best > 1) and $installed_meta->{perllocalpod}) {
+ # try using perllocal.pod to narrow the options, if there is one
# XXX TODO move this logic into the per-candidate-distro loop below
# it doesn't make much sense to be here at the per-module level
my @in_perllocal = grep {

0 comments on commit e3a4d5d

Please sign in to comment.