diff options
| author | Abigail <abigail@abigail.be> | 2012-03-20 00:14:24 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2012-03-20 00:16:27 +0100 |
| commit | 564ac620902c38056c0c8bc7099cadf6b5961faa (patch) | |
| tree | d1eec0f170b4fe737b90176b313c209f3d91920c | |
| parent | 4cc560b23649f322bae0315aed9b9665e537c44e (diff) | |
| download | perl-564ac620902c38056c0c8bc7099cadf6b5961faa.tar.gz | |
Eliminate a warning
| -rwxr-xr-x | Porting/corelist.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index 83211f3311..f8110f348f 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -152,7 +152,7 @@ my %module_to_deprecated; while ( my ( $module, $file ) = each %module_to_file ) { my $M = $file_to_M->{$file}; next unless $M; - next if $Modules{$M}{MAINTAINER} eq 'p5p'; + next if $Modules{$M}{MAINTAINER} && $Modules{$M}{MAINTAINER} eq 'p5p'; $module_to_upstream{$module} = $Modules{$M}{UPSTREAM}; $module_to_deprecated{$module} = 1 if $Modules{$M}{DEPRECATED}; next |