Return a version value even if the module is not installed

briandfoy · Mar 26, 2018 · 15c4934 · 15c4934
1 parent d0d0801
commit 15c4934
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/Distribution/Guess/BuildSystem.pm b/lib/Distribution/Guess/BuildSystem.pm
@@ -447,13 +447,17 @@ sub _get_version {
 
 	my $file = catfile( split /::/, $module ) . ".pm";
 
+	my $found_module = 0;
 	foreach my $dir ( @dirs ) {
 		my $module = catfile( $dir, $file );
 		next unless -e $module;
 
+		$found_module = 1;
 		return Module::Extract::VERSION->parse_version_safely( $module );
 		}
 
+	return '$module not installed' unless $found_module;
+	return;
 	}
 
 =item uses_module_build