Update Maintainers.pl etc for Devel-PPPort upgrade to 3.21

[perl5.git] / Porting / core-cpan-diff

diff --git a/Porting/core-cpan-diff b/Porting/core-cpan-diff
index dbfeac7..b3afa30 100644 (file)
--- a/Porting/core-cpan-diff
+++ b/Porting/core-cpan-diff
@@ -116,8 +116,6 @@ sub run {
         'x|crosscheck'  => \$do_crosscheck,
     ) or usage;
 
-    @wanted_upstreams = map { $_ eq 'undef' ? undef : $_ } @wanted_upstreams;
-
     my @modules;
 
     usage("Cannot mix -a with module list") if $scan_all && @ARGV;
@@ -241,7 +239,7 @@ sub do_compare {
             warn "WARNING: duplicate entry for $dist in $module\n";
         }
 
-        my $upstream = $m->{UPSTREAM};
+        my $upstream = $m->{UPSTREAM} // 'undef';
         next if @$wanted_upstreams and !$wanted_upstream{$upstream};
 
         print $outfh "\n$module - "
@@ -490,7 +488,7 @@ sub do_crosscheck {
         my $pdist = $m->{DISTRIBUTION};
         die "ERROR: $module has no DISTRIBUTION entry\n" unless defined $pdist;
 
-        my $upstream = $m->{UPSTREAM};
+        my $upstream = $m->{UPSTREAM} // 'undef';
         next if @$wanted_upstreams and !$wanted_upstream{$upstream};
 
         my $cdist = $modules{$module};
@@ -519,7 +517,7 @@ sub do_crosscheck {
 }
 
 # get the EXCLUDED and MAP entries for this module, or
-# make up defauts if they don't exist
+# make up defaults if they don't exist
 
 sub get_map {
     my ( $m, $module_name, $perl_files ) = @_;