Re: add UPSTREAM flag to Maintainers.pl??

Message-ID: <4917FD19.7080704@sneakemail.com>

p4raw-id: //depot/perl@35038

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 46e90e6..e96f891 100644 (file)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -87,6 +87,14 @@ package Maintainers;
 # names to be recursed down.  The CPAN can be either 1 (get the
 # latest one from CPAN) or 0 (there is no valid CPAN release).
 
+# UPSTREAM indicates where patches should go. undef implies
+# that this hasn't been discussed for the module at hand.
+# "blead" indicates that the copy of the module in the blead
+# sources is to be considered canonical, "cpan" means that the
+# module on CPAN is to be patched first. "first-come" means
+# that blead can be patched freely if it is in sync with the
+# latest release on CPAN.
+
 %Modules = (
 
        'Archive::Extract' =>
@@ -94,6 +102,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Archive/Extract.pm lib/Archive/Extract],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Archive::Tar' =>
@@ -101,6 +110,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Archive/Tar.pm lib/Archive/Tar],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'AutoLoader' =>
@@ -108,7 +118,8 @@ package Maintainers;
                'MAINTAINER'    => 'smueller',
                'FILES'         => q[lib/AutoLoader.pm lib/AutoSplit.pm lib/AutoLoader],
                'CPAN'          => 1,
-       },
+               'UPSTREAM'      => "cpan",
+               },
 
        'Attribute::Handlers' =>
                {
@@ -116,6 +127,7 @@ package Maintainers;
                'FILES'         => q[lib/Attribute/Handlers.pm
                                     lib/Attribute/Handlers],
                'CPAN'          => 1,
+                'UPSTREAM'      => "blead",
                },
 
        'B::Concise' =>
@@ -123,6 +135,7 @@ package Maintainers;
                'MAINTAINER'    => 'smccam',
                'FILES'         => q[ext/B/B/Concise.pm ext/B/t/concise.t],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'B::Debug' =>
@@ -130,6 +143,7 @@ package Maintainers;
                'MAINTAINER'    => 'rurban',
                'FILES'         => q[ext/B/B/Debug.pm ext/B/t/debug.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'B::Deparse' =>
@@ -137,6 +151,7 @@ package Maintainers;
                'MAINTAINER'    => 'smccam',
                'FILES'         => q[ext/B/B/Deparse.pm ext/B/t/deparse.t],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'B::Lint' =>
@@ -145,6 +160,7 @@ package Maintainers;
                'FILES'         => q[ext/B/B/Lint.pm ext/B/t/lint.t
                                     ext/B/t/pluglib/B/Lint/Plugin/Test.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'base' =>
@@ -152,6 +168,7 @@ package Maintainers;
                'MAINTAINER'    => 'rgarcia',
                'FILES'         => q[lib/base.pm lib/fields.pm lib/base],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'bignum' =>
@@ -159,6 +176,7 @@ package Maintainers;
                'MAINTAINER'    => 'tels',
                'FILES'         => q[lib/big{int,num,rat}.pm lib/bignum],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Compress::Raw::Zlib' =>
@@ -166,6 +184,7 @@ package Maintainers;
                'MAINTAINER'    => 'pmqs',
                'FILES'         => q[ext/Compress/Raw],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'constant' =>
@@ -173,6 +192,7 @@ package Maintainers;
                'MAINTAINER'    => 'saper',
                'FILES'         => q[lib/constant.{pm,t}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Compress::Zlib' =>
@@ -180,6 +200,7 @@ package Maintainers;
                'MAINTAINER'    => 'pmqs',
                'FILES'         => q[ext/Compress/Zlib],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'CGI' =>
@@ -187,6 +208,7 @@ package Maintainers;
                'MAINTAINER'    => 'lstein',
                'FILES'         => q[lib/CGI.pm lib/CGI],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Class::ISA' =>
@@ -194,6 +216,7 @@ package Maintainers;
                'MAINTAINER'    => 'sburke',
                'FILES'         => q[lib/Class/ISA.pm lib/Class/ISA],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'CPAN' =>
@@ -201,6 +224,7 @@ package Maintainers;
                'MAINTAINER'    => 'andk',
                'FILES'         => q[lib/CPAN.pm lib/CPAN],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'CPANPLUS' =>
@@ -222,6 +246,7 @@ package Maintainers;
                                     lib/CPANPLUS/t
                                    ],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'CPANPLUS::Dist' =>
@@ -230,6 +255,7 @@ package Maintainers;
                'FILES'         => q[lib/CPANPLUS/Dist.pm lib/CPANPLUS/Dist/Base.pm
                                     lib/CPANPLUS/Dist/MM.pm lib/CPANPLUS/Dist/Sample.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'CPANPLUS::Dist::Build' =>
@@ -237,6 +263,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/CPANPLUS/Dist/Build.pm lib/CPANPLUS/Dist/Build],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Cwd' =>
@@ -244,6 +271,7 @@ package Maintainers;
                'MAINTAINER'    => 'kwilliams',
                'FILES'         => q[ext/Cwd lib/Cwd.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Data::Dumper' =>
@@ -251,6 +279,7 @@ package Maintainers;
                'MAINTAINER'    => 'ilyam', # Not gsar.
                'FILES'         => q[ext/Data/Dumper],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'DB::File' =>
@@ -258,6 +287,7 @@ package Maintainers;
                'MAINTAINER'    => 'pmqs',
                'FILES'         => q[ext/DB_File],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Devel::PPPort' =>
@@ -265,6 +295,7 @@ package Maintainers;
                'MAINTAINER'    => 'mhx',
                'FILES'         => q[ext/Devel/PPPort],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Digest' =>
@@ -272,6 +303,7 @@ package Maintainers;
                'MAINTAINER'    => 'gaas',
                'FILES'         => q[lib/Digest.pm lib/Digest],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Digest::MD5' =>
@@ -279,6 +311,7 @@ package Maintainers;
                'MAINTAINER'    => 'gaas',
                'FILES'         => q[ext/Digest/MD5],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
         'Digest::SHA' =>
@@ -286,6 +319,7 @@ package Maintainers;
                 'MAINTAINER'    => 'mshelor',
                 'FILES'         => q[ext/Digest/SHA],
                 'CPAN'          => 1,
+                'UPSTREAM'     => undef,
                 },
 
        'Encode' =>
@@ -293,6 +327,7 @@ package Maintainers;
                'MAINTAINER'    => 'dankogai',
                'FILES'         => q[ext/Encode],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'encoding::warnings' =>
@@ -300,6 +335,7 @@ package Maintainers;
                'MAINTAINER'    => 'audreyt',
                'FILES'         => q[lib/encoding/warnings.pm lib/encoding/warnings],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Errno' =>
@@ -307,6 +343,7 @@ package Maintainers;
                'MAINTAINER'    => 'p5p', # Not gbarr.
                'FILES'         => q[ext/Errno],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'Exporter' =>
@@ -314,6 +351,7 @@ package Maintainers;
                'MAINTAINER'    => 'ferreira',
                'FILES'         => q[lib/Exporter.pm lib/Exporter.t lib/Exporter/Heavy.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'ExtUtils::CBuilder' =>
@@ -321,6 +359,7 @@ package Maintainers;
                'MAINTAINER'    => 'kwilliams',
                'FILES'         => q[lib/ExtUtils/CBuilder.pm lib/ExtUtils/CBuilder],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'ExtUtils::Command' =>
@@ -329,6 +368,7 @@ package Maintainers;
                'FILES'         => q[lib/ExtUtils/Command.pm
                                     lib/ExtUtils/t/{cp,eu_command}.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'ExtUtils::Constant' =>
@@ -337,16 +377,17 @@ package Maintainers;
                'FILES'         => q[lib/ExtUtils/Constant.pm lib/ExtUtils/Constant
                                     lib/ExtUtils/t/Constant.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
         'ExtUtils::Install' =>
-
                {
                'MAINTAINER' => 'yves',
                # MakeMaker has a basic.t too, and we use that.
                'FILES' => q[lib/ExtUtils/{Install,Installed,Packlist}.pm
                             lib/ExtUtils/t/{Install,Installapi2,Packlist,can_write_dir}.t],
                'CPAN' => 1,
+               'UPSTREAM' => undef,
                },
 
        'ExtUtils::MakeMaker' =>
@@ -357,6 +398,7 @@ package Maintainers;
                        lib/ExtUtils/t/{[0-9FLV-Zabdf-z]*,IN*,Mkbootstrap,MM_*,PL_FILES,cd,config}.t
                        t/lib/MakeMaker t/lib/TieIn.pm t/lib/TieOut.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'ExtUtils::Manifest' =>
@@ -364,6 +406,7 @@ package Maintainers;
                'MAINTAINER'    => 'rkobes',
                'FILES'         => q[lib/ExtUtils/{Manifest.pm,MANIFEST.SKIP} lib/ExtUtils/t/Manifest.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'ExtUtils::ParseXS' =>
@@ -371,6 +414,7 @@ package Maintainers;
                'MAINTAINER'    => 'kwilliams',
                'FILES'         => q[lib/ExtUtils/ParseXS.pm lib/ExtUtils/ParseXS],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'faq' =>
@@ -378,6 +422,7 @@ package Maintainers;
                'MAINTAINER'    => 'perlfaq',
                'FILES'         => q[pod/perlfaq*],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'File::Fetch' =>
@@ -385,6 +430,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/File/Fetch.pm lib/File/Fetch],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'File::Path' =>
@@ -392,6 +438,7 @@ package Maintainers;
                'MAINTAINER'    => 'dland',
                'FILES'         => q[lib/File/Path.pm lib/File/Path.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'File::Spec' =>
@@ -399,6 +446,7 @@ package Maintainers;
                'MAINTAINER'    => 'kwilliams',
                'FILES'         => q[lib/File/Spec.pm lib/File/Spec],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'File::Temp' =>
@@ -406,6 +454,7 @@ package Maintainers;
                'MAINTAINER'    => 'tjenness',
                'FILES'         => q[lib/File/Temp.pm lib/File/Temp],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Filter::Simple' =>
@@ -413,6 +462,7 @@ package Maintainers;
                'MAINTAINER'    => 'smueller',
                'FILES'         => q[lib/Filter/Simple.pm lib/Filter/Simple],
                'CPAN'          => 1,
+                'UPSTREAM'      => "blead",
                },
 
        'Filter::Util::Call' =>
@@ -421,6 +471,7 @@ package Maintainers;
                'FILES'         => q[ext/Filter/Util/Call ext/Filter/t/call.t
                                     t/lib/filter-util.pl],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Getopt::Long' =>
@@ -428,6 +479,7 @@ package Maintainers;
                'MAINTAINER'    => 'jv',
                'FILES'         => q[lib/Getopt/Long.pm lib/Getopt/Long],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'I18N::LangTags' =>
@@ -435,6 +487,7 @@ package Maintainers;
                'MAINTAINER'    => 'sburke',
                'FILES'         => q[lib/I18N/LangTags.pm lib/I18N/LangTags],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'if' =>
@@ -442,6 +495,7 @@ package Maintainers;
                'MAINTAINER'    => 'ilyaz',
                'FILES'         => q[lib/if.{pm,t}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'IO' =>
@@ -449,6 +503,7 @@ package Maintainers;
                'MAINTAINER'    => 'gbarr',
                'FILES'         => q[ext/IO],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'IO::Compress::Base' =>
@@ -456,6 +511,7 @@ package Maintainers;
                'MAINTAINER'    => 'pmqs',
                'FILES'         => q[ext/IO_Compress_Base],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'IO::Compress::Zlib' =>
@@ -463,6 +519,7 @@ package Maintainers;
                'MAINTAINER'    => 'pmqs',
                'FILES'         => q[ext/IO_Compress_Zlib],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'IO::Zlib' =>
@@ -470,6 +527,7 @@ package Maintainers;
                'MAINTAINER'    => 'tomhughes',
                'FILES'         => q[lib/IO/Zlib.pm lib/IO/Zlib],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'IPC::Cmd' =>
@@ -477,6 +535,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/IPC/Cmd lib/IPC/Cmd.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'lib' =>
@@ -485,6 +544,7 @@ package Maintainers;
                'FILES'         =>
                        q[lib/lib_pm.PL lib/lib.t],
                'CPAN'          => 1,
+                'UPSTREAM'      => "blead",
                },
 
        'libnet' =>
@@ -493,6 +553,7 @@ package Maintainers;
                'FILES'         =>
                        q[lib/Net/{Cmd,Config,Domain,FTP,Netrc,NNTP,POP3,SMTP,Time}.pm lib/Net/ChangeLog lib/Net/FTP lib/Net/*.eg lib/Net/libnetFAQ.pod lib/Net/README lib/Net/t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Scalar-List-Utils' =>
@@ -500,6 +561,7 @@ package Maintainers;
                'MAINTAINER'    => 'gbarr',
                'FILES'         => q[ext/List/Util],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Locale::Codes' =>
@@ -507,6 +569,7 @@ package Maintainers;
                'MAINTAINER'    => 'neilb',
                'FILES'         => q[lib/Locale/{Codes,Constants,Country,Currency,Language,Script}*],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Locale::Maketext' =>
@@ -514,6 +577,7 @@ package Maintainers;
                'MAINTAINER'    => 'ferreira',
                'FILES'         => q[lib/Locale/Maketext.pm lib/Locale/Maketext.pod lib/Locale/Maketext/ChangeLog lib/Locale/Maketext/{Guts,GutsLoader}.pm lib/Locale/Maketext/README lib/Locale/Maketext/TPJ13.pod lib/Locale/Maketext/t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Locale::Maketext::Simple' =>
@@ -521,6 +585,7 @@ package Maintainers;
                'MAINTAINER'    => 'audreyt',
                'FILES'         => q[lib/Locale/Maketext/Simple.pm lib/Locale/Maketext/Simple],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Log::Message' =>
@@ -528,6 +593,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                 'FILES'         => q[lib/Log/Message.pm lib/Log/Message/{Config,Handlers,Item}.pm lib/Log/Message/t],
                 'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Log::Message::Simple' =>
@@ -535,6 +601,7 @@ package Maintainers;
                 'MAINTAINER'    => 'kane',
                 'FILES'         => q[lib/Log/Message/Simple.pm lib/Log/Message/Simple],
                 'CPAN'          => 1,
+                'UPSTREAM'      => undef,
                 },
 
        'mad' =>
@@ -542,6 +609,7 @@ package Maintainers;
                'MAINTAINER'    => 'lwall',
                'FILES'         => q[mad],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'Math::BigFloat' =>
@@ -549,6 +617,7 @@ package Maintainers;
                'MAINTAINER'    => 'tels',
                'FILES'         => q[lib/Math/BigFloat.pm lib/Math/BigFloat],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Math::BigInt' =>
@@ -557,6 +626,7 @@ package Maintainers;
                'FILES'         => q[lib/Math/BigInt.pm lib/Math/BigInt
                                     t/lib/Math],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Math::BigInt::FastCalc' =>
@@ -564,6 +634,7 @@ package Maintainers;
                'MAINTAINER'    => 'tels',
                'FILES'         => q[ext/Math/BigInt/FastCalc],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Math::BigRat' =>
@@ -571,6 +642,7 @@ package Maintainers;
                'MAINTAINER'    => 'tels',
                'FILES'         => q[lib/Math/BigRat.pm lib/Math/BigRat],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
         'Math::Complex' =>
@@ -578,6 +650,7 @@ package Maintainers;
                 'MAINTAINER'    => 'zefram',
                 'FILES'         => q[lib/Math/Complex.pm lib/Math/Trig.pm],
                 'CPAN'          => 1,
+                'UPSTREAM'      => undef,
                 },
 
        'Memoize' =>
@@ -585,6 +658,7 @@ package Maintainers;
                'MAINTAINER'    => 'mjd',
                'FILES'         => q[lib/Memoize.pm lib/Memoize],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'MIME::Base64' =>
@@ -592,6 +666,7 @@ package Maintainers;
                'MAINTAINER'    => 'gaas',
                'FILES'         => q[ext/MIME/Base64],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Module::Build' =>
@@ -599,6 +674,7 @@ package Maintainers;
                'MAINTAINER'    => 'kwilliams',
                'FILES'         => q[lib/Module/Build lib/Module/Build.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Module::CoreList' =>
@@ -606,6 +682,7 @@ package Maintainers;
                'MAINTAINER'    => 'rgarcia',
                'FILES'         => q[lib/Module/CoreList lib/Module/CoreList.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Module::Load' =>
@@ -613,6 +690,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Module/Load/t lib/Module/Load.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Module::Load::Conditional' =>
@@ -621,6 +699,7 @@ package Maintainers;
                'FILES'         => q[lib/Module/Load/Conditional
                                     lib/Module/Load/Conditional.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Module::Loaded' =>
@@ -628,6 +707,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Module/Loaded lib/Module/Loaded.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        # NB. tests are located in t/Module_Pluggable to avoid directory
@@ -637,6 +717,7 @@ package Maintainers;
                'MAINTAINER'    => 'simonw',
                'FILES'         => q[ext/Module/Pluggable t/Module_Pluggable],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Net::Ping' =>
@@ -644,6 +725,7 @@ package Maintainers;
                'MAINTAINER'    => 'smpeters',
                'FILES'         => q[lib/Net/Ping.pm lib/Net/Ping],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'NEXT' =>
@@ -651,6 +733,7 @@ package Maintainers;
                'MAINTAINER'    => 'dconway',
                'FILES'         => q[lib/NEXT.pm lib/NEXT],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Object::Accessor' =>
@@ -658,6 +741,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Object/Accessor.pm lib/Object/Accessor],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Package::Constants' =>
@@ -665,6 +749,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Package/Constants lib/Package/Constants.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Params::Check' =>
@@ -672,6 +757,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Params/Check lib/Params/Check.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'parent' =>
@@ -679,6 +765,7 @@ package Maintainers;
                'MAINTAINER'    => 'corion',
                'FILES'         => q[lib/parent lib/parent.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'perlebcdic' =>
@@ -686,6 +773,7 @@ package Maintainers;
                'MAINTAINER'    => 'pvhp',
                'FILES'         => q[pod/perlebcdic.pod],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'PerlIO' =>
@@ -693,6 +781,7 @@ package Maintainers;
                'MAINTAINER'    => 'p5p',
                'FILES'         => q[ext/PerlIO],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'PerlIO::via::QuotedPrint' =>
@@ -701,6 +790,7 @@ package Maintainers;
                'FILES'         => q[lib/PerlIO/via/QuotedPrint.pm
                                     lib/PerlIO/via/t/QuotedPrint.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'perlre' =>
@@ -709,6 +799,7 @@ package Maintainers;
                'FILES'         => q[pod/perlrecharclass.pod
                                     pod/perlrebackslash.pod],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
 
@@ -717,6 +808,7 @@ package Maintainers;
                MAINTAINER      => 'avar',
                FILES           => 'pod/perlreapi.pod',
                CPAN            => 0,
+               'UPSTREAM'      => undef,
                },
 
        'perlreftut' =>
@@ -724,6 +816,7 @@ package Maintainers;
                'MAINTAINER'    => 'mjd',
                'FILES'         => q[pod/perlreftut.pod],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'perlpacktut' =>
@@ -731,6 +824,7 @@ package Maintainers;
                'MAINTAINER'    => 'laun',
                'FILES'         => q[pod/perlpacktut.pod],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'perlpodspec' =>
@@ -738,6 +832,7 @@ package Maintainers;
                'MAINTAINER'    => 'sburke',
                'FILES'         => q[pod/perlpodspec.pod],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'perlthrtut' =>
@@ -745,6 +840,7 @@ package Maintainers;
                'MAINTAINER'    => 'elizabeth',
                'FILES'         => q[pod/perlthrtut.pod],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'Pod::Escapes' =>
@@ -752,12 +848,14 @@ package Maintainers;
                 'MAINTAINER'    => 'sburke',
                 'FILES'         => q[lib/Pod/Escapes.pm lib/Pod/Escapes],
                 'CPAN'          => 1,
+                'UPSTREAM'      => undef,
                 },
 
         'Pod::Parser' => {
                'MAINTAINER'    => 'marekr',
                'FILES' => q[lib/Pod/{InputObjects,Parser,ParseUtils,Select,PlainText,Usage,Checker,Find}.pm pod/pod{select,2usage,checker}.PL t/pod/testcmp.pl t/pod/testp2pt.pl t/pod/testpchk.pl t/pod/emptycmd.* t/pod/find.t t/pod/for.* t/pod/headings.* t/pod/include.* t/pod/included.* t/pod/lref.* t/pod/multiline_items.* t/pod/nested_items.* t/pod/nested_seqs.* t/pod/oneline_cmds.* t/pod/poderrs.* t/pod/pod2usage.* t/pod/podselect.* t/pod/special_seqs.*],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
         'Pod::Simple' =>
@@ -765,6 +863,7 @@ package Maintainers;
                'MAINTAINER'    => 'arandal',
                'FILES'         => q[lib/Pod/Simple.pm lib/Pod/Simple.pod lib/Pod/Simple],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Pod::LaTeX' =>
@@ -772,6 +871,7 @@ package Maintainers;
                'MAINTAINER'    => 'tjenness',
                'FILES'         => q[lib/Pod/LaTeX.pm lib/Pod/t/pod2latex.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'podlators' =>
@@ -779,6 +879,7 @@ package Maintainers;
                'MAINTAINER'    => 'rra',
                'FILES'         => q[lib/Pod/{Man,ParseLink,Text,Text/{Color,Overstrike,Termcap}}.pm pod/pod2man.PL pod/pod2text.PL lib/Pod/t/{basic.*,{color,filehandle,man*,parselink,pod-parser,pod-spelling,pod,termcap,text*}.t}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Pod::Perldoc' =>
@@ -786,6 +887,7 @@ package Maintainers;
                'MAINTAINER'    => 'ferreira',
                'FILES'         => q[lib/Pod/Perldoc.pm lib/Pod/Perldoc],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Pod::Plainer' =>
@@ -793,6 +895,7 @@ package Maintainers;
                'MAINTAINER'    => 'rmbarker',
                'FILES'         => q[lib/Pod/Plainer.pm t/pod/plainer.t],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'Safe' =>
@@ -800,6 +903,7 @@ package Maintainers;
                'MAINTAINER'    => 'rgarcia',
                'FILES'         => q[ext/Safe ext/Opcode/Safe.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'SelfLoader' =>
@@ -807,6 +911,7 @@ package Maintainers;
                'MAINTAINER'    => 'smueller',
                'FILES'         => q[lib/SelfLoader.pm lib/SelfLoader],
                'CPAN'          => 1,
+               'UPSTREAM'      => "blead",
                },
 
        'Shell' =>
@@ -814,6 +919,7 @@ package Maintainers;
                'MAINTAINER'    => 'ferreira',
                'FILES'         => q[lib/Shell.pm lib/Shell.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Storable' =>
@@ -821,6 +927,7 @@ package Maintainers;
                'MAINTAINER'    => 'ams',
                'FILES'         => q[ext/Storable],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Switch' =>
@@ -828,6 +935,7 @@ package Maintainers;
                'MAINTAINER'    => 'rgarcia',
                'FILES'         => q[lib/Switch.pm lib/Switch],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Sys::Syslog' =>
@@ -835,6 +943,7 @@ package Maintainers;
                'MAINTAINER'    => 'saper',
                'FILES'         => q[ext/Sys/Syslog],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'TabsWrap' =>
@@ -843,6 +952,7 @@ package Maintainers;
                'FILES'         =>
                        q[lib/Text/{Tabs,Wrap}.pm lib/Text/TabsWrap],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Text::Balanced' =>
@@ -850,6 +960,7 @@ package Maintainers;
                'MAINTAINER'    => 'dmanura',
                'FILES'         => q[lib/Text/Balanced.pm lib/Text/Balanced],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Text::ParseWords' =>
@@ -857,6 +968,7 @@ package Maintainers;
                'MAINTAINER'    => 'chorny',
                'FILES'         => q[lib/Text/ParseWords{.pm,.t,}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Text::Soundex' =>
@@ -864,6 +976,7 @@ package Maintainers;
                'MAINTAINER'    => 'markm',
                'FILES'         => q[ext/Text/Soundex],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Term::ANSIColor' =>
@@ -871,6 +984,7 @@ package Maintainers;
                'MAINTAINER'    => 'rra',
                'FILES'         => q[lib/Term/ANSIColor.pm lib/Term/ANSIColor],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Term::UI' =>
@@ -878,6 +992,7 @@ package Maintainers;
                'MAINTAINER'    => 'kane',
                'FILES'         => q[lib/Term/UI.pm lib/Term/UI],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Test' =>
@@ -885,6 +1000,7 @@ package Maintainers;
                'MAINTAINER'    => 'sburke',
                'FILES'         => q[lib/Test.pm lib/Test/t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Test::Harness' =>
@@ -892,6 +1008,7 @@ package Maintainers;
                'MAINTAINER'    => 'andya',
                'FILES'         => q[ext/Test/Harness],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Test::Simple' =>
@@ -902,6 +1019,7 @@ package Maintainers;
                                     lib/Test/More.pm lib/Test/Tutorial.pod
                                     t/lib/Test/Simple t/lib/Dev/Null.pm],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Term::Cap' =>
@@ -909,6 +1027,7 @@ package Maintainers;
                'MAINTAINER'    => 'jstowe',
                'FILES'         => q[lib/Term/Cap.{pm,t}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Thread::Queue' =>
@@ -916,6 +1035,7 @@ package Maintainers;
                'MAINTAINER'    => 'jdhedden',
                'FILES'         => q[lib/Thread/Queue.pm lib/Thread/Queue],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Thread::Semaphore' =>
@@ -923,6 +1043,7 @@ package Maintainers;
                'MAINTAINER'    => 'jdhedden',
                'FILES'         => q[lib/Thread/Semaphore.pm lib/Thread/Semaphore],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'threads' =>
@@ -931,6 +1052,7 @@ package Maintainers;
                'FILES'         => q[ext/threads/hints ext/threads/t
                                     ext/threads/threads.{pm,xs}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'threads::shared' =>
@@ -938,6 +1060,7 @@ package Maintainers;
                'MAINTAINER'    => 'jdhedden',
                'FILES'         => q[ext/threads/shared],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Tie::File' =>
@@ -945,6 +1068,7 @@ package Maintainers;
                'MAINTAINER'    => 'mjd',
                'FILES'         => q[lib/Tie/File.pm lib/Tie/File],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Tie::RefHash' =>
@@ -952,6 +1076,7 @@ package Maintainers;
                'MAINTAINER'    => 'nuffin',
                'FILES'         => q[lib/Tie/RefHash.pm lib/Tie/RefHash],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Time::HiRes' =>
@@ -959,6 +1084,7 @@ package Maintainers;
                'MAINTAINER'    => 'zefram',
                'FILES'         => q[ext/Time/HiRes],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Time::Local' =>
@@ -966,6 +1092,7 @@ package Maintainers;
                'MAINTAINER'    => 'drolsky',
                'FILES'         => q[lib/Time/Local.{pm,t}],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
         'Time::Piece' =>
@@ -973,6 +1100,7 @@ package Maintainers;
                 'MAINTAINER'    => 'msergeant',
                 'FILES'         => q[ext/Time/Piece],
                 'CPAN'          => 1,
+                'UPSTREAM'      => undef,
                 },
 
        'Unicode::Collate' =>
@@ -981,6 +1109,7 @@ package Maintainers;
                'FILES'         => q[lib/Unicode/Collate.pm
                                     lib/Unicode/Collate],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Unicode::Normalize' =>
@@ -988,6 +1117,7 @@ package Maintainers;
                'MAINTAINER'    => 'sadahiro',
                'FILES'         => q[ext/Unicode/Normalize],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'version' =>
@@ -995,6 +1125,7 @@ package Maintainers;
                'MAINTAINER'    => 'jpeacock',
                'FILES'         => q[lib/version.pm lib/version.pod lib/version.t],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'vms' =>
@@ -1002,6 +1133,7 @@ package Maintainers;
                'MAINTAINER'    => 'craig',
                'FILES'         => q[vms configure.com README.vms],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'warnings' =>
@@ -1010,6 +1142,7 @@ package Maintainers;
                'FILES'         => q[warnings.pl lib/warnings.{pm,t}
                                     lib/warnings t/lib/warnings],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'win32' =>
@@ -1017,6 +1150,7 @@ package Maintainers;
                'MAINTAINER'    => 'jand',
                'FILES'         => q[win32 t/win32 README.win32 ext/Win32CORE],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
 
        'Win32' =>
@@ -1024,6 +1158,7 @@ package Maintainers;
                'MAINTAINER'    => 'jand',
                'FILES'         => q[ext/Win32],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'Win32API::File' =>
@@ -1031,6 +1166,7 @@ package Maintainers;
                'MAINTAINER'    => 'tyemq',
                'FILES'         => q[ext/Win32API/File],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        'XSLoader' =>
@@ -1038,6 +1174,7 @@ package Maintainers;
                'MAINTAINER'    => 'saper',
                'FILES'         => q[ext/DynaLoader/t/XSLoader.t ext/DynaLoader/XSLoader_pm.PL],
                'CPAN'          => 1,
+               'UPSTREAM'      => undef,
                },
 
        's2p' =>
@@ -1045,6 +1182,7 @@ package Maintainers;
                'MAINTAINER'    => 'laun',
                'FILES'         => q[x2p/s2p.PL],
                'CPAN'          => 0,
+               'UPSTREAM'      => undef,
                },
        );
 

diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm
index 0a2f4c6..b271e9f 100644 (file)
--- a/Porting/Maintainers.pm
+++ b/Porting/Maintainers.pm
@@ -166,7 +166,7 @@ sub show_results {
                    my @files = get_module_files($m);
                    printf "%-15s @files\n", $m;
                } else {
-                   printf "%-15s $Modules{$m}{MAINTAINER}\n", $m;
+                   printf "%-15s %-12s %s\n", $m, $Modules{$m}{MAINTAINER}, $Modules{$m}{UPSTREAM}||'unknown';
                }
            }
        }