r5458 - in /packages/libmodule-corelist-perl/branches/upstream/current: Changes META.yml README lib/Module/CoreList.pm t/corelist.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri May 18 22:35:16 UTC 2007
Author: gregoa-guest
Date: Fri May 18 22:35:16 2007
New Revision: 5458
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5458
Log:
[svn-upgrade] Integrating new upstream version, libmodule-corelist-perl (2.11)
Modified:
packages/libmodule-corelist-perl/branches/upstream/current/Changes
packages/libmodule-corelist-perl/branches/upstream/current/META.yml
packages/libmodule-corelist-perl/branches/upstream/current/README
packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm
packages/libmodule-corelist-perl/branches/upstream/current/t/corelist.t
Modified: packages/libmodule-corelist-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/Changes?rev=5458&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/Changes (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/Changes Fri May 18 22:35:16 2007
@@ -1,3 +1,9 @@
+2.11 Thu May 10 2007
+ - first_release() now returns the first release in the order of
+ perl version numbers. Add a new method first_release_by_date()
+ to keep the old behaviour available. Suggested by Michael G Schwern.
+ - Update data about UCD versions
+
2.10 Wed May 9 2007
- Add versioning for the Unicode Character Database bundled
with Perl (H. Merijn Brand)
Modified: packages/libmodule-corelist-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/META.yml?rev=5458&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/META.yml (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/META.yml Fri May 18 22:35:16 2007
@@ -1,11 +1,12 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Module-CoreList
-version: 2.10
-version_from: lib/Module/CoreList.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: Module-CoreList
+version: 2.11
+abstract: ~
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.32_01
+distribution_type: module
+requires:
Test::More: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30_01
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: packages/libmodule-corelist-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/README?rev=5458&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/README (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/README Fri May 18 22:35:16 2007
@@ -1,4 +1,4 @@
-README for Module::CoreList 2.10
+README for Module::CoreList 2.11
=head1 NAME
Modified: packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm?rev=5458&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/lib/Module/CoreList.pm Fri May 18 22:35:16 2007
@@ -1,7 +1,7 @@
package Module::CoreList;
use strict;
use vars qw/$VERSION %released %patchlevel %version %families/;
-$VERSION = '2.10';
+$VERSION = '2.11';
=head1 NAME
@@ -13,8 +13,9 @@
print $Module::CoreList::version{5.00503}{CPAN}; # prints 1.48
- print Module::CoreList->first_release('File::Spec'); # prints 5.00503
- print Module::CoreList->first_release('File::Spec', 0.82); # prints 5.006001
+ print Module::CoreList->first_release('File::Spec'); # prints 5.00405
+ print Module::CoreList->first_release_by_date('File::Spec'); # prints 5.005
+ print Module::CoreList->first_release('File::Spec', 0.82); # prints 5.006001
print join ', ', Module::CoreList->find_modules(qr/Data/);
# prints 'Data::Dumper'
@@ -47,8 +48,12 @@
corresponding to the specified perl version in the Perforce repository where
the perl sources are kept.
-The special module name C<Unicode> refers to the version of the Unicode
-Character Database bundled with Perl.
+Starting with 2.10, the special module name C<Unicode> refers to the version of
+the Unicode Character Database bundled with Perl.
+
+Since 2.11, Module::CoreList::first_release() returns the first release
+in the order of perl version numbers. If you want to get the earliest
+perl release instead, use Module::CoreList::first_release_by_date().
=head1 CAVEATS
@@ -95,7 +100,7 @@
}
-sub first_release {
+sub first_release_raw {
my ($discard, $module, $version) = @_;
my @perls = $version
@@ -103,8 +108,19 @@
$version{$_}{ $module } ge $version } keys %version
: grep { exists $version{$_}{ $module } } keys %version;
+ return @perls;
+}
+
+sub first_release_by_date {
+ my @perls = &first_release_raw;
return unless @perls;
return (sort { $released{$a} cmp $released{$b} } @perls)[0];
+}
+
+sub first_release {
+ my @perls = &first_release_raw;
+ return unless @perls;
+ return (sort { $a cmp $b } @perls)[0];
}
sub find_modules {
@@ -239,6 +255,7 @@
'strict' => undef, # lib/strict.pm
'subs' => undef, # lib/subs.pm
},
+
5.001 => {
'AnyDBM_File' => undef, # lib/AnyDBM_File.pm
'AutoLoader' => undef, # lib/AutoLoader.pm
@@ -297,6 +314,7 @@
'strict' => undef, # lib/strict.pm
'subs' => undef, # lib/subs.pm
},
+
5.002 => {
'AnyDBM_File' => undef, # lib/AnyDBM_File.pm
'AutoLoader' => undef, # lib/AutoLoader.pm
@@ -376,6 +394,7 @@
'subs' => undef, # lib/subs.pm
'vars' => undef, # lib/vars.pm
},
+
5.00307 => {
'AnyDBM_File' => undef, #./lib/AnyDBM_File.pm
'AutoLoader' => undef, #./lib/AutoLoader.pm
@@ -476,6 +495,7 @@
'VMS::Filespec' => undef, #./vms/ext/Filespec.pm
'VMS::Stdio' => '2.0', #./vms/ext/Stdio/Stdio.pm
},
+
5.004 => {
'AnyDBM_File' => undef, #./lib/AnyDBM_File.pm
'AutoLoader' => undef, #./lib/AutoLoader.pm
@@ -609,6 +629,7 @@
'VMS::Stdio' => '2.02', #./vms/ext/Stdio/Stdio.pm
'vmsish' => undef, #./vms/ext/vmsish.pm
},
+
5.005 => {
'AnyDBM_File' => undef, #./lib/AnyDBM_File.pm
'attrs' => '1.0', #./ext/attrs/attrs.pm
@@ -784,6 +805,7 @@
'VMS::Stdio' => '2.1', #./vms/ext/Stdio/Stdio.pm
'vmsish' => undef, #./vms/ext/vmsish.pm
},
+
5.00503 => {
'AnyDBM_File' => undef,
'attrs' => '1.0',
@@ -960,6 +982,7 @@
'VMS::Stdio' => 2.1,
'vmsish' => undef,
},
+
5.00405 => {
'AnyDBM_File' => undef, #./lib/AnyDBM_File.pm
'attrs' => '0.1', #./lib/attrs.pm
@@ -1107,7 +1130,7 @@
'vmsish' => undef, #./vms/ext/vmsish.pm
},
- 5.00504 => {
+ 5.00504 => {
'AnyDBM_File' => undef, #lib/AnyDBM_File.pm
'attrs' => '1.0', #lib/attrs.pm
'AutoLoader' => undef, #lib/AutoLoader.pm
@@ -1285,7 +1308,7 @@
'VMS::Filespec' => undef, #vms/ext/Filespec.pm
'VMS::Stdio' => '2.1', #vms/ext/Stdio/Stdio.pm
'vmsish' => undef, #vms/ext/vmsish.pm
- },
+ },
5.006 => {
'AnyDBM_File' => undef, #./lib/AnyDBM_File.pm
@@ -1504,6 +1527,7 @@
'warnings' => undef, #./lib/warnings.pm
'warnings::register' => undef, #./lib/warnings/register.pm
},
+
5.006001 => {
'AnyDBM_File' => undef,
'attributes' => 0.03,
@@ -1727,6 +1751,7 @@
'warnings::register' => undef,
'XSLoader' => '0.01',
},
+
5.006002 => {
'AnyDBM_File' => undef, #lib/AnyDBM_File.pm
'attributes' => '0.03', #lib/attributes.pm
@@ -3344,7 +3369,7 @@
'XSLoader' => 0.02, #XSLoader.pm
},
- 5.008003 => {
+ 5.008003 => {
'AnyDBM_File' => '1.00', #lib/AnyDBM_File.pm
'Attribute::Handlers' => '0.78', #lib/Attribute/Handlers.pm
'attributes' => '0.06', #lib/attributes.pm
@@ -3700,7 +3725,7 @@
'XS::APItest' => '0.03', #lib/XS/APItest.pm
'XSLoader' => '0.02', #lib/XSLoader.pm
'XS::Typemap' => '0.01', #lib/XS/Typemap.pm
- },
+ },
5.009 => {
'AnyDBM_File' => '1.00', #lib/AnyDBM_File.pm
@@ -4060,7 +4085,7 @@
'XS::APItest' => '0.02', #lib/XS/APItest.pm
'XS::Typemap' => '0.01', #lib/XS/Typemap.pm
'XSLoader' => '0.03', #lib/XSLoader.pm
- },
+ },
5.009001 => {
'AnyDBM_File' => '1.00', #lib/AnyDBM_File.pm
@@ -4482,6 +4507,7 @@
'Symbol' => '1.05', #lib/Symbol.pm
'Test' => '1.24', #lib/Test.pm
'Thread' => '2.00', #lib/Thread.pm
+ 'Unicode' => '4.0.1', # lib/unicore/version
'UNIVERSAL' => '1.01', #lib/UNIVERSAL.pm
'utf8' => '1.03', #lib/utf8.pm
'vars' => '1.01', #lib/vars.pm
@@ -4790,8 +4816,8 @@
'VMS::Filespec' => '1.11', #vms/ext/Filespec.pm
'VMS::Stdio' => '2.3', #vms/ext/Stdio/Stdio.pm
},
+
5.008005 => {
-
'AnyDBM_File' => '1.00', #lib/AnyDBM_File.pm
'attributes' => '0.06', #lib/attributes.pm
'AutoLoader' => '5.60', #lib/AutoLoader.pm
@@ -5155,6 +5181,7 @@
'VMS::Filespec' => '1.11', #vms/ext/Filespec.pm
'VMS::Stdio' => '2.3', #vms/ext/Stdio/Stdio.pm
},
+
5.008006 => {
'AnyDBM_File' => '1.00', #lib/AnyDBM_File.pm
'Attribute::Handlers' => '0.78_01', #lib/Attribute/Handlers.pm
@@ -5504,6 +5531,7 @@
'Unicode::Normalize' => '0.30', #lib/Unicode/Normalize.pm
'Unicode::UCD' => '0.22', #lib/Unicode/UCD.pm
'UNIVERSAL' => '1.01', #lib/UNIVERSAL.pm
+ 'Unicode' => '4.0.1', # lib/unicore/version
'User::grent' => '1.00', #lib/User/grent.pm
'User::pwent' => '1.00', #lib/User/pwent.pm
'utf8' => '1.04', #lib/utf8.pm
Modified: packages/libmodule-corelist-perl/branches/upstream/current/t/corelist.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmodule-corelist-perl/branches/upstream/current/t/corelist.t?rev=5458&op=diff
==============================================================================
--- packages/libmodule-corelist-perl/branches/upstream/current/t/corelist.t (original)
+++ packages/libmodule-corelist-perl/branches/upstream/current/t/corelist.t Fri May 18 22:35:16 2007
@@ -1,7 +1,7 @@
#!perl -w
use strict;
use Module::CoreList;
-use Test::More tests => 12;
+use Test::More tests => 13;
BEGIN { require_ok('Module::CoreList'); }
@@ -20,8 +20,11 @@
ok(exists $Module::CoreList::version{5.007003}{'Attribute::Handlers'},
"Attribute::Handlers were bundled with 5.7.3");
-is(Module::CoreList->first_release('File::Spec'), 5.005,
+is(Module::CoreList->first_release_by_date('File::Spec'), 5.005,
"File::Spec was first bundled in 5.005");
+
+is(Module::CoreList->first_release('File::Spec'), 5.00405,
+ "File::Spec was released in perl with lowest version number 5.00405");
is(Module::CoreList->first_release('File::Spec', 0.82), 5.006_001,
"File::Spec reached 0.82 with 5.006_001");
More information about the Pkg-perl-cvs-commits
mailing list