Merge pull request #51 from tokuhirom/fix-xz-fetch-issue

Fix xz fetch issue
tokuhirom · Sep 18, 2015 · 445bb6a · 445bb6a
2 parents 320b022 + 4c2c637
commit 445bb6a
Show file tree

Hide file tree

Showing 2 changed files with 255 additions and 335 deletions.
diff --git a/lib/Perl/Build.pm b/lib/Perl/Build.pm
@@ -100,7 +100,7 @@ sub perl_release_by_cpan_perl_releases {
     my ($class, $version) = @_;
     my $tarballs = CPAN::Perl::Releases::perl_tarballs($version);
 
-    my $x = (values %$tarballs)[0];
+    my $x = $tarballs->{'tar.gz'};
     die "not found the tarball for perl-$version\n" unless $x;
     my $dist_tarball = (split("/", $x))[-1];
     my $dist_tarball_url = $CPAN_MIRROR . "/authors/id/$x";