Blob Blame History Raw
From 5c3f9935b2ac05fcd41b4c933fa05f326903484c Mon Sep 17 00:00:00 2001
From: Andreas Koenig <andk@cpan.org>
Date: Fri, 8 Jul 2016 21:25:53 +0200
Subject: [PATCH] Emergency fix for bug
 https://rt.cpan.org/Ticket/Display.html?id=115734
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 lib/App/Cpan.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/App/Cpan.pm b/lib/App/Cpan.pm
index 59642ed..d770bf5 100644
--- a/lib/App/Cpan.pm
+++ b/lib/App/Cpan.pm
@@ -1480,7 +1480,9 @@ sub _expand_module
 	{
 	my( $module ) = @_;
 
-	my $expanded = CPAN::Shell->expand( "Module", $module );
+	my $expanded = CPAN::Shell->expandany( $module );
+        return $expanded if $expanded;
+        $expanded = CPAN::Shell->expand( "Module", $module );
 	unless( defined $expanded ) {
 		$logger->error( "Could not expand [$module]. Check the module name." );
 		my $threshold = (
-- 
2.7.4