[packages/pldcpan] - version 1.64: allow X-Y dist format again - R: perl-LWP-Protocol-https

[qboosh]

commit f5f451d9728cdb49f6d34b8b9705428f46c857ee
Author: Jakub Bogusz <qboosh at pld-linux.org>
Date:   Tue Oct 2 05:48:59 2018 +0200

    - version 1.64: allow X-Y dist format again
    - R: perl-LWP-Protocol-https

 pldcpan.pl   | 3 ++-
 pldcpan.spec | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)
---
diff --git a/pldcpan.spec b/pldcpan.spec
index ae0aea8..d872dc7 100644
--- a/pldcpan.spec
+++ b/pldcpan.spec
@@ -2,7 +2,7 @@
 Summary:	PLD Linux script to create RPMS from CPAN modules
 Summary(pl.UTF-8):	Skrypt PLD tworzący pakiety RPM z modułów z CPAN
 Name:		pldcpan
-Version:	1.63
+Version:	1.64
 Release:	1
 License:	GPL
 Group:		Development/Languages/Perl
@@ -12,6 +12,7 @@ BuildRequires:	perl-tools-pod
 BuildRequires:	rpm-perlprov >= 4.1-13
 Requires:	perl-Data-Dump
 Requires:	perl-Encode
+Requires:	perl-LWP-Protocol-https
 Requires:	perl-libwww
 BuildArch:	noarch
 BuildRoot:	%{tmpdir}/%{name}-%{version}-root-%(id -u -n)
diff --git a/pldcpan.pl b/pldcpan.pl
index f3ea2c0..45fa631 100755
--- a/pldcpan.pl
+++ b/pldcpan.pl
@@ -78,7 +78,7 @@ use File::Find::Rule ();
 use Module::CoreList ();
 use LWP::Simple      ();
 
-our $VERSION = 1.63;
+our $VERSION = 1.64;
 our %opts;
 GetOptions(\%opts, 'verbose|v', 'modulebuild|B', 'makemaker|M', 'force');
 eval "use Data::Dump qw(pp);" if $opts{verbose};
@@ -664,6 +664,7 @@ for my $arg (@ARGV) {
 	}
 	elsif ($arg =~ /^[a-z\d_]+(?:(?:::|-)[a-z\d_]+)*$/i) {
 		my $dist = $arg;
+		$dist =~ s/-/::/g if $dist =~ /-/;
 		warn " -- searching for '$dist' on metacpan.org\n";
 		my $scpan = LWP::Simple::get("https://fastapi.metacpan.org/v1/download_url/$dist");
 		if (   !defined $scpan
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/pldcpan.git/commitdiff/f5f451d9728cdb49f6d34b8b9705428f46c857ee