commit f5f451d9728cdb49f6d34b8b9705428f46c857ee
Author: Jakub Bogusz <[email protected]>
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
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
