From: Gisle Aas Date: Sun, 18 Apr 2010 10:41:59 +0000 (+0200) Subject: Remove rendundant CPAN key X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97556ec345ea8d489ce15dba96dd311eabb6fa13;p=p5sagit%2Fp5-mst-13.2.git Remove rendundant CPAN key --- diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 1bab973..2e6075a 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -3,8 +3,7 @@ # Also, a "module" does not necessarily mean a CPAN module, it # might mean a file or files or a subdirectory. # Most (but not all) of the modules have dual lives in the core -# and in CPAN. Those that have a CPAN existence, have the CPAN -# attribute set to true. +# and in CPAN. package Maintainers; @@ -107,7 +106,7 @@ use File::Glob qw(:case); # Each entry in the %Modules hash roughly represents a distribution, -# except in the case of CPAN=1, where it *exactly* represents a single +# except when DISTRIBUTION is set, where it *exactly* represents a single # CPAN distribution. # The keys of %Modules are human descriptions of the distributions, and @@ -122,9 +121,6 @@ use File::Glob qw(:case); # names to be recursed down, which collectively generate a complete list # of the files associated with the distribution. -# CPAN can be either 1 (this distribution is also available on 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 @@ -189,7 +185,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/Archive-Extract-0.38.tar.gz', 'FILES' => q[cpan/Archive-Extract], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', 'BUGS' => 'bug-archive-extract@rt.cpan.org', }, @@ -199,7 +194,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/Archive-Tar-1.54.tar.gz', 'FILES' => q[cpan/Archive-Tar], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', 'BUGS' => 'bug-archive-tar@rt.cpan.org', }, @@ -209,7 +203,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'rgarcia', 'DISTRIBUTION' => 'SMUELLER/Attribute-Handlers-0.87.tar.gz', 'FILES' => q[dist/Attribute-Handlers], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -237,7 +230,6 @@ use File::Glob qw(:case); t/system.t ) ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -247,7 +239,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SMUELLER/AutoLoader-5.70.tar.gz', 'FILES' => q[cpan/AutoLoader], 'EXCLUDED' => [ qw( t/00pod.t ) ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -255,7 +246,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'smccam', 'FILES' => q[ext/B/B/Concise.pm ext/B/t/concise.t], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -265,7 +255,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'RURBAN/B-Debug-1.12.tar.gz', 'FILES' => q[cpan/B-Debug], 'EXCLUDED' => [ qw( t/coverage.html t/pod.t ) ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -273,7 +262,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'smccam', 'FILES' => q[dist/B-Deparse], - 'CPAN' => 0, 'UPSTREAM' => 'blead', }, @@ -283,7 +271,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'JJORE/B-Lint-1.11.tar.gz', 'FILES' => q[cpan/B-Lint], 'EXCLUDED' => [ qw( t/test.pl ) ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -292,7 +279,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'rgarcia', 'DISTRIBUTION' => 'RGARCIA/base-2.15.tar.gz', 'FILES' => q[dist/base], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -302,7 +288,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'TELS/math/bignum-0.23.tar.gz', 'FILES' => q[cpan/bignum], 'EXCLUDED' => [ qr{^inc/Module/}, qw(t/pod.t t/pod_cov.t) ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -319,7 +304,6 @@ use File::Glob qw(:case); t/fast.t ) ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -332,7 +316,6 @@ use File::Glob qw(:case); qw( bzip2-src/bzip2-cpp.patch ) ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -347,7 +330,6 @@ use File::Glob qw(:case); t/99pod.t ) ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -363,7 +345,6 @@ use File::Glob qw(:case); eg/synopsis.pl ) ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -408,7 +389,6 @@ use File::Glob qw(:case); t/yaml_code.yml }, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -427,7 +407,6 @@ use File::Glob qw(:case); t/032_CPANPLUS-Internals-Source-via-sqlite.t }, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', 'BUGS' => 'bug-cpanplus@rt.cpan.org', }, @@ -442,7 +421,6 @@ use File::Glob qw(:case); t/99_pod_coverage.t }, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -451,7 +429,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'p5p', # Not gsar. Not ilyam 'DISTRIBUTION' => 'SMUELLER/Data-Dumper-2.125.tar.gz', 'FILES' => q[dist/Data-Dumper], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -466,7 +443,6 @@ use File::Glob qw(:case); fallback.xs }, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -476,7 +452,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'MHX/Devel-PPPort-3.19.tar.gz', 'FILES' => q[cpan/Devel-PPPort], 'EXCLUDED' => [ qw{PPPort.pm} ], # we use PPPort_pm.PL instead - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -486,7 +461,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'GAAS/Digest-1.16.tar.gz', 'FILES' => q[cpan/Digest], 'EXCLUDED' => [ qw{digest-bench} ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -496,7 +470,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'GAAS/Digest-MD5-2.39.tar.gz', 'FILES' => q[cpan/Digest-MD5], 'EXCLUDED' => [ qw{rfc1321.txt} ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -506,7 +479,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'MSHELOR/Digest-SHA-5.47.tar.gz', 'FILES' => q[cpan/Digest-SHA], 'EXCLUDED' => [ qw{t/pod.t t/podcover.t examples/dups} ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -515,7 +487,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'dankogai', 'DISTRIBUTION' => 'DANKOGAI/Encode-2.39.tar.gz', 'FILES' => q[cpan/Encode], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -528,7 +499,6 @@ use File::Glob qw(:case); qw{t/0-signature.t Makefile.PL MANIFEST META.yml README SIGNATURE}, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -544,7 +514,6 @@ use File::Glob qw(:case); 'MAP' => { 't/' => 'lib/', 'lib/' => 'lib/', }, - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -553,7 +522,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kwilliams', 'DISTRIBUTION' => 'DAGOLDEN/ExtUtils-CBuilder-0.27.tar.gz', 'FILES' => q[cpan/ExtUtils-CBuilder], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -567,7 +535,6 @@ use File::Glob qw(:case); lib/Shell/Command.pm }, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -584,7 +551,6 @@ use File::Glob qw(:case); examples/perl_regcomp_posix_keyword.pl }, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -601,7 +567,6 @@ use File::Glob qw(:case); t/pod.t }, ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -613,7 +578,6 @@ use File::Glob qw(:case); 'EXCLUDED' => [ qr{^t/lib/Test/}, qr{^inc/ExtUtils/}, ], - 'CPAN' => 1, 'UPSTREAM' => 'first-come', }, @@ -622,7 +586,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'rkobes', 'DISTRIBUTION' => 'RKOBES/ExtUtils-Manifest-1.57.tar.gz', 'FILES' => q[cpan/ExtUtils-Manifest], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -637,7 +600,6 @@ use File::Glob qw(:case); t/include/nscore.h }], 'FILES' => q[cpan/ExtUtils-ParseXS], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -645,7 +607,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'perlfaq', 'FILES' => q[pod/perlfaq*], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -654,7 +615,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/File-Fetch-0.24.tar.gz', 'FILES' => q[cpan/File-Fetch], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -670,7 +630,6 @@ use File::Glob qw(:case); 'MAP' => { '' => 'cpan/File-Path/lib/File/', 't/' => 'cpan/File-Path/t/', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -683,7 +642,6 @@ use File::Glob qw(:case); misc/results.txt } ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -695,7 +653,6 @@ use File::Glob qw(:case); 'EXCLUDED' => [ qw(Makefile.PL MANIFEST README META.yml), qr{^demo/} ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -730,7 +687,6 @@ use File::Glob qw(:case); 'perlfilter.pod' => 'pod/perlfilter.pod', '' => 'cpan/Filter-Util-Call/', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -747,7 +703,6 @@ use File::Glob qw(:case); 'MAP' => { '' => 'cpan/Getopt-Long/', 'lib/newgetopt.pl' => 'lib/newgetopt.pl', }, - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -759,7 +714,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'p5p', 'DISTRIBUTION' => 'SBURKE/I18N-LangTags-0.35.tar.gz', 'FILES' => q[dist/I18N-LangTags], - 'CPAN' => 0, 'UPSTREAM' => 'blead', }, @@ -768,7 +722,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'ilyaz', 'DISTRIBUTION' => 'ILYAZ/modules/if-0.0401.tar.gz', 'FILES' => q[cpan/if], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -778,7 +731,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'GBARR/IO-1.25.tar.gz', 'FILES' => q[dist/IO/], 'EXCLUDED' => [ qw{t/test.pl}, ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -788,7 +740,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'PMQS/IO-Compress-2.021.tar.gz', 'FILES' => q[cpan/IO-Compress], 'EXCLUDED' => [ qr{t/Test/} ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -797,7 +748,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'tomhughes', 'DISTRIBUTION' => 'TOMHUGHES/IO-Zlib-1.10.tar.gz', 'FILES' => q[cpan/IO-Zlib], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -806,7 +756,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.54.tar.gz', 'FILES' => q[cpan/IPC-Cmd], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -816,7 +765,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'MHX/IPC-SysV-2.01.tar.gz', 'FILES' => q[cpan/IPC-SysV], 'EXCLUDED' => [ qw{const-c.inc const-xs.inc} ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -826,7 +774,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SMUELLER/lib-0.62.tar.gz', 'FILES' => q[dist/lib/], 'EXCLUDED' => [ qw{forPAUSE/lib.pm t/00pod.t} ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -836,7 +783,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'GBARR/libnet-1.22.tar.gz', 'FILES' => q[cpan/libnet], 'EXCLUDED' => [ qw{Configure install-nomake} ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -847,7 +793,6 @@ use File::Glob qw(:case); 'FILES' => q[cpan/Locale-Codes], 'EXCLUDED' => [ qw{t/pod_coverage.t t/pod.t}, qr{^t/runtests}, qr{^internal/}, qr{^examples/} ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -857,7 +802,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'FERREIRA/Locale-Maketext-1.13.tar.gz', 'FILES' => q[dist/Locale-Maketext], 'EXCLUDED' => [ qw{perlcriticrc t/00_load.t t/pod.t} ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -867,7 +811,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'JESSE/Locale-Maketext-Simple-0.21.tar.gz', 'FILES' => q[cpan/Locale-Maketext-Simple], 'EXCLUDED' => [ qr{^inc/} ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -876,7 +819,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'KANE/Log-Message-0.02.tar.gz', 'FILES' => q[cpan/Log-Message], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -885,7 +827,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/Log-Message-Simple-0.06.tar.gz', 'FILES' => q[cpan/Log-Message-Simple], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -893,7 +834,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'lwall', 'FILES' => q[mad], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -908,7 +848,6 @@ use File::Glob qw(:case); t/pod_cov.t } ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -936,7 +875,6 @@ use File::Glob qw(:case); 'lib/Math/BigInt/FastCalc.pm' => 'cpan/Math-BigInt-FastCalc/FastCalc.pm', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -951,7 +889,6 @@ use File::Glob qw(:case); t/pod_cov.t }, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -966,7 +903,6 @@ use File::Glob qw(:case); t/pod-coverage.t }, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -981,7 +917,6 @@ use File::Glob qw(:case); Memoize/Saves.pm }, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -991,7 +926,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'GAAS/MIME-Base64-3.09.tar.gz', 'FILES' => q[cpan/MIME-Base64], 'EXCLUDED' => [ qw{ t/bad-sv.t }, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1002,7 +936,6 @@ use File::Glob qw(:case); 'FILES' => q[cpan/Module-Build], 'EXCLUDED' => [ qw{ t/par.t t/signature.t }, qr!^contrib/!, qr!^devtools! ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1011,7 +944,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'rgarcia', 'DISTRIBUTION' => 'BINGOS/Module-CoreList-2.23.tar.gz', 'FILES' => q[dist/Module-CoreList], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1020,7 +952,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'KANE/Module-Load-0.16.tar.gz', 'FILES' => q[cpan/Module-Load], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1029,7 +960,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/Module-Load-Conditional-0.34.tar.gz', 'FILES' => q[cpan/Module-Load-Conditional], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1038,7 +968,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/Module-Loaded-0.06.tar.gz', 'FILES' => q[cpan/Module-Loaded], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1047,7 +976,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'simonw', 'DISTRIBUTION' => 'SIMONW/Module-Pluggable-3.9.tar.gz', 'FILES' => q[cpan/Module-Pluggable], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1056,7 +984,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'smpeters', 'DISTRIBUTION' => 'SMPETERS/Net-Ping-2.36.tar.gz', 'FILES' => q[dist/Net-Ping], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1066,7 +993,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'FLORA/NEXT-0.64.tar.gz', 'FILES' => q[cpan/NEXT], 'EXCLUDED' => [ qr{^demo/} ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1075,7 +1001,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'BINGOS/Object-Accessor-0.36.tar.gz', 'FILES' => q[cpan/Object-Accessor], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1084,7 +1009,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'KANE/Package-Constants-0.02.tar.gz', 'FILES' => q[cpan/Package-Constants], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1096,7 +1020,6 @@ use File::Glob qw(:case); # the tarball. Russell's Paradox eat your heart out. 'EXCLUDED' => [ qw( Params-Check-0.26.tar.gz ) ], 'FILES' => q[cpan/Params-Check], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1105,7 +1028,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'corion', 'DISTRIBUTION' => 'CORION/parent-0.223.tar.gz', 'FILES' => q[cpan/parent], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1115,7 +1037,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SMUELLER/Parse-CPAN-Meta-1.40.tar.gz', 'FILES' => q[cpan/Parse-CPAN-Meta], 'EXCLUDED' => [ qw( t/97_meta.t t/98_pod.t t/99_pmv.t ) ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', # NOTE: 'perl uupacktool.pl t/data/utf_16_le_bom.yml.packed' # run by hand after import, as the core's test harness doesn't @@ -1128,7 +1049,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SMUELLER/PathTools-3.31.tar.gz', 'FILES' => q[cpan/Cwd], 'EXCLUDED' => [ qr{^t/lib/Test/} ], - 'CPAN' => 1, 'UPSTREAM' => "cpan", # NOTE: PathTools is in cpan/Cwd/ because it contains Cwd.xs and # something, possibly Makefile.SH, makes an assumption that the @@ -1139,7 +1059,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'pvhp', 'FILES' => q[pod/perlebcdic.pod], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1147,7 +1066,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'p5p', 'FILES' => q[ext/PerlIO], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1156,7 +1074,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'elizabeth', 'DISTRIBUTION' => 'ELIZABETH/PerlIO-via-QuotedPrint-0.06.tar.gz', 'FILES' => q[cpan/PerlIO-via-QuotedPrint], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1164,7 +1081,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'laun', 'FILES' => q[pod/perlpacktut.pod], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1172,7 +1088,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'sburke', 'FILES' => q[pod/perlpodspec.pod], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1181,7 +1096,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'abigail', 'FILES' => q[pod/perlrecharclass.pod pod/perlrebackslash.pod], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1190,7 +1104,6 @@ use File::Glob qw(:case); { MAINTAINER => 'avar', FILES => q[pod/perlreapi.pod], - CPAN => 0, 'UPSTREAM' => undef, }, @@ -1198,7 +1111,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'mjd', 'FILES' => q[pod/perlreftut.pod], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1206,7 +1118,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'elizabeth', 'FILES' => q[pod/perlthrtut.pod], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1215,7 +1126,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'arandal', 'DISTRIBUTION' => 'SBURKE/Pod-Escapes-1.04.tar.gz', 'FILES' => q[cpan/Pod-Escapes], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1230,7 +1140,6 @@ use File::Glob qw(:case); 'MAP' => { '' => 'cpan/Pod-LaTeX/', 'pod2latex.PL' => 'pod/pod2latex.PL', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1247,7 +1156,6 @@ use File::Glob qw(:case); 'MAP' => { '' => 'cpan/Pod-Parser/', 'scripts/' => 'pod/', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1269,7 +1177,6 @@ use File::Glob qw(:case); 'MAP' => { '' => 'dist/Pod-Perldoc/', 'lib/perldoc.pod' => 'pod/perldoc.pod', }, - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1283,7 +1190,6 @@ use File::Glob qw(:case); # have been in blead a long time. I'm going to assume then that # the blead versions of these two files are authoritative - DAPM 'EXCLUDED' => [ qw( lib/perlpod.pod lib/perlpodspec.pod ) ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1298,7 +1204,6 @@ use File::Glob qw(:case); 'MAP' => { '' => 'cpan/podlators/', 'scripts/' => 'pod/', }, - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1307,7 +1212,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'rgarcia', 'DISTRIBUTION' => 'RGARCIA/Safe-2.22.tar.gz', 'FILES' => q[dist/Safe], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1321,7 +1225,6 @@ use File::Glob qw(:case); qr{^inc/Test/}, qw{ mytypemap }, ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1331,7 +1234,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SMUELLER/SelfLoader-1.17.tar.gz', 'FILES' => q[dist/SelfLoader], 'EXCLUDED' => [ qw{ t/00pod.t } ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1341,7 +1243,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'AMS/Storable-2.21.tar.gz', 'FILES' => q[dist/Storable], 'EXCLUDED' => [ qr{^t/Test/} ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1360,7 +1261,6 @@ use File::Glob qw(:case); win32/PerlLog.RES }, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1370,7 +1270,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'RRA/ANSIColor-2.02.tar.gz', 'FILES' => q[cpan/Term-ANSIColor], 'EXCLUDED' => [ qr{^tests/}, qw(t/pod-spelling.t t/pod.t) ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1379,7 +1278,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'jstowe', 'DISTRIBUTION' => 'JSTOWE/Term-Cap-1.12.tar.gz', 'FILES' => q[cpan/Term-Cap], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1388,7 +1286,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'kane', 'DISTRIBUTION' => 'KANE/Term-UI-0.20.tar.gz', 'FILES' => q[cpan/Term-UI], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1397,7 +1294,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'jesse', 'DISTRIBUTION' => 'JESSE/Test-1.25_02.tar.gz', 'FILES' => q[cpan/Test], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1416,7 +1312,6 @@ use File::Glob qw(:case); t/lib/if.pm } ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1435,7 +1330,6 @@ use File::Glob qw(:case); lib/Test/Builder/IO/Scalar.pm } ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1445,7 +1339,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'ADAMK/Text-Balanced-2.02.tar.gz', 'FILES' => q[cpan/Text-Balanced], 'EXCLUDED' => [ qw( t/97_meta.t t/98_pod.t t/99_pmv.t ) ], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1460,7 +1353,6 @@ use File::Glob qw(:case); 'ParseWords.pm' => 'cpan/Text-ParseWords/lib/Text/ParseWords.pm', '' => 'cpan/Text-ParseWords/', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1475,7 +1367,6 @@ use File::Glob qw(:case); # considerably over the years 'test.pl' => 'cpan/Text-Soundex/t/Soundex.t', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1485,7 +1376,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'MUIR/modules/Text-Tabs+Wrap-2009.0305.tar.gz', 'FILES' => q[cpan/Text-Tabs], 'EXCLUDED' => [ qw( t/dnsparks.t ) ], # see af6492bf9e - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1499,7 +1389,6 @@ use File::Glob qw(:case); t/99_pod.t t/test.pl ) ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1513,7 +1402,6 @@ use File::Glob qw(:case); t/99_pod.t t/test.pl ) ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1527,7 +1415,6 @@ use File::Glob qw(:case); t/test.pl threads.h ) ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1541,7 +1428,6 @@ use File::Glob qw(:case); t/pod.t t/test.pl ) ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1550,7 +1436,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'mjd', 'DISTRIBUTION' => 'MJD/Tie-File-0.96.tar.gz', 'FILES' => q[cpan/Tie-File], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1559,7 +1444,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'nuffin', 'DISTRIBUTION' => 'NUFFIN/Tie-RefHash-1.38.tar.gz', 'FILES' => q[cpan/Tie-RefHash], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1568,7 +1452,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'zefram', 'DISTRIBUTION' => 'JHI/Time-HiRes-1.9719.tar.gz', 'FILES' => q[cpan/Time-HiRes], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1578,7 +1461,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'DROLSKY/Time-Local-1.1901.tar.gz', 'FILES' => q[ext/Time-Local], 'EXCLUDED' => [ qw(t/pod-coverage.t t/pod.t) ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', # Currently Time::Local is no longer backwards compatible with Pre-5.11 perls # the version in core has now deviated from the CPAN version. To re-dual-life @@ -1590,7 +1472,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'msergeant', 'DISTRIBUTION' => 'MSERGEANT/Time-Piece-1.15.tar.gz', 'FILES' => q[cpan/Time-Piece], - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1603,7 +1484,6 @@ use File::Glob qw(:case); 'EXCLUDED' => [ qr{X$}, qw{disableXS enableXS } ], - 'CPAN' => 1, 'UPSTREAM' => 'first-come', }, @@ -1613,7 +1493,6 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SADAHIRO/Unicode-Normalize-1.03.tar.gz', 'FILES' => q[cpan/Unicode-Normalize], 'EXCLUDED' => [ qw{MANIFEST.N Normalize.pmN disableXS enableXS }], - 'CPAN' => 1, 'UPSTREAM' => 'first-come', }, @@ -1630,7 +1509,6 @@ use File::Glob qw(:case); 'MAP' => { 'lib/' => 'lib/', 't/coretests.pm' => 'lib/version.t', }, - 'CPAN' => 1, 'UPSTREAM' => undef, }, @@ -1638,7 +1516,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'craig', 'FILES' => q[vms configure.com README.vms], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1646,7 +1523,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'craig', 'FILES' => q[ext/VMS-DCLsym], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1654,7 +1530,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'craig', 'FILES' => q[ext/VMS-Stdio], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1666,7 +1541,6 @@ use File::Glob qw(:case); lib/warnings t/lib/warnings ], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1674,7 +1548,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'jand', 'FILES' => q[win32 t/win32 README.win32 ext/Win32CORE], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1683,7 +1556,6 @@ use File::Glob qw(:case); 'MAINTAINER' => 'jand', 'DISTRIBUTION' => "JDB/Win32-0.39.tar.gz", 'FILES' => q[cpan/Win32], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1695,7 +1567,6 @@ use File::Glob qw(:case); 'EXCLUDED' => [ qr{^ex/}, qw{t/pod.t}, ], - 'CPAN' => 1, 'UPSTREAM' => 'cpan', }, @@ -1703,7 +1574,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'zefram', 'FILES' => q[ext/XS-APItest-KeywordRPN], - 'CPAN' => 0, 'UPSTREAM' => 'blead', }, @@ -1718,7 +1588,6 @@ use File::Glob qw(:case); t/portfs.t XSLoader.pm}, # we use XSLoader_pm.PL ], - 'CPAN' => 1, 'UPSTREAM' => 'blead', }, @@ -1726,7 +1595,6 @@ use File::Glob qw(:case); { 'MAINTAINER' => 'laun', 'FILES' => q[x2p/s2p.PL], - 'CPAN' => 0, 'UPSTREAM' => undef, }, @@ -1946,9 +1814,13 @@ use File::Glob qw(:case); lib/vars{.pm,.t,_carp.t} lib/vmsish.{pm,t} ], - 'CPAN' => 0, 'UPSTREAM' => undef, }, ); +# legacy CPAN flag +for (values %Modules) { + $_->{CPAN} = !!$_->{DISTRIBUTION}; +} + 1;