external scripts: resolve sub name conflict

metacpan · May 30, 2017 · 6f4941d · 6f4941d
1 parent 51a5e4d
commit 6f4941d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/MetaCPAN/Script/Role/External/Debian.pm b/lib/MetaCPAN/Script/Role/External/Debian.pm
@@ -67,7 +67,7 @@ sub run_debian {
         # map Debian source package to CPAN distro
         while ( my ( $source, $url ) = $sth->fetchrow ) {
             next if $skip{$source};
-            if ( my $dist = $self->dist_for( $source, $url ) ) {
+            if ( my $dist = $self->dist_for_debian( $source, $url ) ) {
                 $ret->{dist}{$dist} = $source;
             }
             else {
@@ -84,7 +84,7 @@ sub run_debian {
     return $ret;
 }
 
-sub dist_for {
+sub dist_for_debian {
     my ( $self, $source, $url ) = @_;
 
     my %alias = (

diff --git a/lib/MetaCPAN/Script/Role/External/Fedora.pm b/lib/MetaCPAN/Script/Role/External/Fedora.pm
@@ -61,7 +61,7 @@ sub run_fedora {
     for my $pkg (@packages) {
         my ( $source, $url ) = ( $pkg->{name}, $pkg->{upstream_url} );
         next if $skip{$source};
-        if ( my $dist = $self->dist_for( $source, $url ) ) {
+        if ( my $dist = $self->dist_for_fedora( $source, $url ) ) {
             $ret->{dist}{$dist} = $source;
         }
         else { push @failures => [ $source, $url ]; }
@@ -80,7 +80,7 @@ sub run_fedora {
     return $ret;
 }
 
-sub dist_for {
+sub dist_for_fedora {
     my ( $self, $source, $url ) = @_;
     state $dist_re = qr{https?://
                         (?:(?:www\.)?metacpan\.org/release