perl-CPAN/CPAN-2.14-Emergency-fix-for...

33 lines
996 B
Diff

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