fix error about missing $mirror

gugod · Jun 8, 2016 · 10045f3 · 10045f3
1 parent 1b77c34
commit 10045f3
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -724,6 +724,7 @@ sub available_perls {
 
 sub perl_release {
     my ($self, $version) = @_;
+    my $mirror = $self->cpan_mirror();
 
     # try CPAN::Perl::Releases
     require CPAN::Perl::Releases;
@@ -737,8 +738,6 @@ sub perl_release {
         return ($dist_tarball, $dist_tarball_url);
     }
 
-    my $mirror = $self->cpan_mirror();
-
     # try src/5.0 symlinks, either perl-5.X or perl5.X; favor .tar.bz2 over .tar.gz
     my $index = http_get("http://www.cpan.org/src/5.0/");
     if ($index) {