r17779 - in /trunk/libmodule-corelist-perl: Changes META.yml README corelist debian/changelog lib/Module/CoreList.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Tue Mar 18 03:27:39 UTC 2008
Author: gregoa-guest
Date: Tue Mar 18 03:27:38 2008
New Revision: 17779
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17779
Log:
New upstream release.
Modified:
trunk/libmodule-corelist-perl/Changes
trunk/libmodule-corelist-perl/META.yml
trunk/libmodule-corelist-perl/README
trunk/libmodule-corelist-perl/corelist
trunk/libmodule-corelist-perl/debian/changelog
trunk/libmodule-corelist-perl/lib/Module/CoreList.pm
Modified: trunk/libmodule-corelist-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-corelist-perl/Changes?rev=17779&op=diff
==============================================================================
--- trunk/libmodule-corelist-perl/Changes (original)
+++ trunk/libmodule-corelist-perl/Changes Tue Mar 18 03:27:38 2008
@@ -1,3 +1,12 @@
+2.14 Mon Mar 17 2008
+ corelist changes:
+ - Add a new -d option to find first perl version by date
+ and not by version number
+ - Better handling of perl versions that end with a 0
+ - use version.pm only for version numbers that have multiple dots
+
+ - Fix tag for 5.00405 (Sam Vilain)
+
2.13 Tue Dec 18 2007
- Add data for perl 5.10.0
Modified: trunk/libmodule-corelist-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-corelist-perl/META.yml?rev=17779&op=diff
==============================================================================
--- trunk/libmodule-corelist-perl/META.yml (original)
+++ trunk/libmodule-corelist-perl/META.yml Tue Mar 18 03:27:38 2008
@@ -1,13 +1,11 @@
---- #YAML:1.0
-name: Module-CoreList
-version: 2.13
-abstract: ~
-license: ~
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
+# 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.14
+version_from: lib/Module/CoreList.pm
+installdirs: site
+requires:
Test::More: 0
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: trunk/libmodule-corelist-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-corelist-perl/README?rev=17779&op=diff
==============================================================================
--- trunk/libmodule-corelist-perl/README (original)
+++ trunk/libmodule-corelist-perl/README Tue Mar 18 03:27:38 2008
@@ -1,4 +1,4 @@
-README for Module::CoreList 2.13
+README for Module::CoreList 2.14
=head1 NAME
@@ -43,7 +43,7 @@
=head1 COPYRIGHT
-Copyright (C) 2002-2007 Richard Clamp. All Rights Reserved.
+Copyright (C) 2002-2008 Richard Clamp. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: trunk/libmodule-corelist-perl/corelist
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-corelist-perl/corelist?rev=17779&op=diff
==============================================================================
--- trunk/libmodule-corelist-perl/corelist (original)
+++ trunk/libmodule-corelist-perl/corelist Tue Mar 18 03:27:38 2008
@@ -11,14 +11,14 @@
=head1 SYNOPSIS
corelist -v
- corelist [-a] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
+ corelist [-a|-d] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ...
=head1 OPTIONS
=over
-=item -a modulename
+=item -a
lists all versions of the given module (or the matching modules, in case you
used a module regexp) in the perls Module::CoreList knows about.
@@ -44,6 +44,11 @@
5.009002 1.04
5.009003 1.06
+=item -d
+
+finds the first perl version where a module has been released by
+date, and not by version number (as is the default).
+
=item -? or -help
help! help! help! to see more help, try --man.
@@ -79,7 +84,7 @@
my %Opts;
-GetOptions(\%Opts, qw[ help|?! man! v|version:f a! ] );
+GetOptions(\%Opts, qw[ help|?! man! v|version:f a! d ] );
pod2usage(1) if $Opts{help};
pod2usage(-verbose=>2) if $Opts{man};
@@ -93,15 +98,16 @@
}
$Opts{v} = numify_version( $Opts{v} );
- if( !exists $Module::CoreList::version{$Opts{v}} ) {
+ my $version_hash = Module::CoreList->find_version($Opts{v});
+ if( !$version_hash ) {
print "\nModule::CoreList has no info on perl v$Opts{v}\n\n";
exit 1;
}
if ( !@ARGV ) {
print "\nThe following modules were in perl v$Opts{v} CORE\n";
- print "$_ ", $Module::CoreList::version{$Opts{v}}{$_} || " ","\n"
- for sort keys %{$Module::CoreList::version{$Opts{v}}};
+ print "$_ ", $version_hash->{$_} || " ","\n"
+ for sort keys %$version_hash;
print "\n";
exit 0;
}
@@ -149,12 +155,17 @@
my($mod,$ver) = @_;
if ( $Opts{v} ) {
- return printf " %-24s %-10s\n",
- $mod,
- $Module::CoreList::version{$Opts{v}}{$mod} || 'undef';
- }
-
- my $ret = Module::CoreList->first_release(@_);
+ my $version_hash = Module::CoreList->find_version($Opts{v});
+ if ($version_hash) {
+ print $mod, " ", $version_hash->{$mod} || 'undef', "\n";
+ return;
+ }
+ else { die "Shouldn't happen" }
+ }
+
+ my $ret = $Opts{d}
+ ? Module::CoreList->first_release_by_date(@_)
+ : Module::CoreList->first_release(@_);
my $msg = $mod;
$msg .= " $ver" if $ver;
@@ -184,13 +195,12 @@
sub numify_version {
my $ver = shift;
- if ( index( $ver, q{.}, index( $ver, q{.} ) ) >= 0 ) {
- eval { require version };
- if ($@) {
- die "You need to install version.pm to use dotted version numbers\n";
- }
+ if ($ver =~ /\..+\./) {
+ eval { require version ; 1 }
+ or die "You need to install version.pm to use dotted version numbers\n";
$ver = version->new($ver)->numify;
}
+ $ver += 0;
return $ver;
}
Modified: trunk/libmodule-corelist-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-corelist-perl/debian/changelog?rev=17779&op=diff
==============================================================================
--- trunk/libmodule-corelist-perl/debian/changelog (original)
+++ trunk/libmodule-corelist-perl/debian/changelog Tue Mar 18 03:27:38 2008
@@ -1,3 +1,9 @@
+libmodule-corelist-perl (2.14-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Tue, 18 Mar 2008 04:24:49 +0100
+
libmodule-corelist-perl (2.13-2) unstable; urgency=low
* debian/rules: delete /usr/lib/perl5 only if it exists (closes: #467803).
Modified: trunk/libmodule-corelist-perl/lib/Module/CoreList.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-corelist-perl/lib/Module/CoreList.pm?rev=17779&op=diff
==============================================================================
--- trunk/libmodule-corelist-perl/lib/Module/CoreList.pm (original)
+++ trunk/libmodule-corelist-perl/lib/Module/CoreList.pm Tue Mar 18 03:27:38 2008
@@ -1,7 +1,7 @@
package Module::CoreList;
use strict;
use vars qw/$VERSION %released %patchlevel %version %families/;
-$VERSION = '2.13';
+$VERSION = '2.14';
=head1 NAME
@@ -138,6 +138,11 @@
return sort keys %mods
}
+sub find_version {
+ my ($class, $v) = @_;
+ return $version{$v} if defined $version{$v};
+ return undef;
+}
# when things escaped
%released = (
@@ -176,7 +181,7 @@
%patchlevel = (
5.005 => [perl => 1647],
5.00503 => ['maint-5.005' => 3198],
- 5.00405 => ['maint-5.004' => 999],
+ 5.00405 => ['maint-5.004' => 3296],
5.006 => [perl => 5899],
5.006001 => ['maint-5.6' => 9654],
5.006002 => ['maint-5.6' => 21727],
More information about the Pkg-perl-cvs-commits
mailing list