Depend on List::Util 1.33

Perl-Toolchain-Gang · Nov 30, 2013 · 7cee4f0 · 7cee4f0
1 parent a825394
commit 7cee4f0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/cpanfile b/cpanfile
@@ -2,6 +2,7 @@ requires "CPAN::Meta::Requirements" => "2.121";
 requires "CPAN::Meta::YAML" => "0.008";
 requires "Carp" => "0";
 requires "JSON::PP" => "2.27200";
+requires "List::Util" => "1.33";
 requires "Parse::CPAN::Meta" => "1.4403";
 requires "Scalar::Util" => "0";
 requires "perl" => "5.008";
@@ -19,7 +20,6 @@ on 'test' => sub {
   requires "IO::Dir" => "0";
   requires "IO::Handle" => "0";
   requires "IPC::Open3" => "0";
-  requires "List::Util" => "0";
   requires "Test::More" => "0.88";
   requires "overload" => "0";
   requires "utf8" => "0";

diff --git a/lib/CPAN/Meta/Converter.pm b/lib/CPAN/Meta/Converter.pm
@@ -26,7 +26,7 @@ use CPAN::Meta::Validator;
 use CPAN::Meta::Requirements;
 use version 0.88 ();
 use Parse::CPAN::Meta 1.4400 ();
-use List::Util qw/all/;
+use List::Util 1.33 qw/all/;
 
 sub _dclone {
   my $ref = shift;
@@ -255,7 +255,7 @@ sub _downgrade_license {
         return 'unknown';
       }
     }
-    if ( @$element == 1 ) {
+    elsif ( @$element == 1 ) {
       return $license_downgrade_map{lc $element->[0]} || "unknown";
     }
   }