From b3dcf77564af3102cd8adcbb1267b92bdeca662b Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Sat, 19 Oct 2013 17:02:49 +0100 Subject: [PATCH] Porting/Maintainers.pl - Remove the remaining MAINTAINER fields This changes all six modules concerned (B::Concise, B::Deparse, VMS::DCLsym, VMS::Stdio, warnings and Win32CORE) to P5P maintainership, but that is the case in practice anyway (since they all live in ext/ or lib/, apart from B::Deparse, which is surely in error in being in dist/ since it has no CPAN dual-life distribution). This was discussed on p5p and #onionsketch: http://www.nntp.perl.org/group/perl.perl5.porters/2013/06/msg203768.html http://www.nntp.perl.org/group/perl.perl5.porters/2013/10/msg208704.html http://irclog.perlgeek.de/onionsketch/2013-10-17 --- Porting/Maintainers.pl | 46 +++++++++++----------------------------------- 1 file changed, 11 insertions(+), 35 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 8e2d688..8675516 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -11,13 +11,6 @@ package Maintainers; use utf8; use File::Glob qw(:case); -%Maintainers = ( - 'CBERRY' => 'Craig Berry ', - 'JDB' => 'Jan Dubois ', - 'PMQS' => 'Paul Marquess ', - 'SMCCAM' => 'Stephen McCamant ', -); - # IGNORABLE: files which, if they appear in the root of a CPAN # distribution, need not appear in core (i.e. core-cpan-diff won't # complain if it can't find them) @@ -51,15 +44,13 @@ use File::Glob qw(:case); # modules with files in cpan/ are understood to have UPSTREAM 'cpan', # meaning that the module on CPAN is to be patched first. -# MAINTAINER indicates who the current maintainer of the module is. For -# modules with no MAINTAINER field given, this is understood to be either -# the Perl 5 Porters if UPSTREAM is 'blead', or else the CPAN author whose -# PAUSE user ID forms the first part of the DISTRIBUTION value, e.g. -# 'BINGOS' in the case of 'BINGOS/Archive-Tar-1.92.tar.gz'. (PAUSE's View -# Permissions page may be consulted to find other authors who have owner -# or co-maint permissions for the module in question.) The few explicitly -# listed MAINTAINERs refer to authors whose email address is listed in the -# %Maintainers hash above. +# MAINTAINER has previously been used to indicate who the current maintainer +# of the module is, but this is no longer stated explicitly. It is now +# understood to be either the Perl 5 Porters if UPSTREAM is 'blead', or else +# the CPAN author whose PAUSE user ID forms the first part of the DISTRIBUTION +# value, e.g. 'BINGOS' in the case of 'BINGOS/Archive-Tar-1.92.tar.gz'. +# (PAUSE's View Permissions page may be consulted to find other authors who +# have owner or co-maint permissions for the module in question.) # FILES is a list of filenames, glob patterns, and directory # names to be recursed down, which collectively generate a complete list @@ -189,7 +180,6 @@ use File::Glob qw(:case); }, 'B::Concise' => { - 'MAINTAINER' => 'SMCCAM', 'FILES' => q[ext/B/B/Concise.pm ext/B/t/concise.t], }, @@ -200,7 +190,6 @@ use File::Glob qw(:case); }, 'B::Deparse' => { - 'MAINTAINER' => 'SMCCAM', 'FILES' => q[dist/B-Deparse], }, @@ -1332,18 +1321,7 @@ use File::Glob qw(:case); 'UPSTREAM' => 'blead', }, - 'VMS::DCLsym' => { - 'MAINTAINER' => 'CBERRY', - 'FILES' => q[ext/VMS-DCLsym], - }, - - 'VMS::Stdio' => { - 'MAINTAINER' => 'CBERRY', - 'FILES' => q[ext/VMS-Stdio], - }, - 'warnings' => { - 'MAINTAINER' => 'PMQS', 'FILES' => q[ lib/warnings lib/warnings.{pm,t} @@ -1366,11 +1344,6 @@ use File::Glob qw(:case); ], }, - 'Win32CORE' => { - 'MAINTAINER' => 'JDB', - 'FILES' => q[ext/Win32CORE], - }, - 'XSLoader' => { 'DISTRIBUTION' => 'SAPER/XSLoader-0.16.tar.gz', 'FILES' => q[dist/XSLoader], @@ -1425,7 +1398,10 @@ use File::Glob qw(:case); ext/Sys-Hostname/ ext/Tie-Hash-NamedCapture/ ext/Tie-Memoize/ + ext/VMS-DCLsym/ ext/VMS-Filespec/ + ext/VMS-Stdio/ + ext/Win32CORE/ ext/XS-APItest/ ext/XS-Typemap/ ext/arybase/ @@ -1543,7 +1519,7 @@ for ( keys %Modules ) { # legacy MAINTAINER field for ( keys %Modules ) { - # Honour any existing MAINTAINER flag for now, but we'd like to remove them + # Keep any existing MAINTAINER flag so that "overrides" can be applied next if exists $Modules{$_}{MAINTAINER}; if ($Modules{$_}{UPSTREAM} eq 'blead') { -- 2.7.4